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oat INSTRUCTIONS 
OR A auf TREFERENCE, UP THE FOLLOWING SECTIONS: 


F 
1.0 
2.0 RE OUT REMENTS 
4-1 LORDING AND OPERATOR ACTION 
FoR A ae ton CETE EXPLANAT ON REFER TO THE TABLE OF 
CONTENTS To ECOL BND HE FOLLOWING BBCUMENT” 
TABLE OF CONTENTS 

ABSTRACT 

REQUIREMENTS 

PRELIMINARY PROGR 

EXECUTION TIME 

STARTING ADDRESS 

PROGRAM CONTROL MODES & OPERATOR ACTION 


DRIVE SELECTION 
DRIVE-LESS TEST 

SWITCH OPTIONS 

SCOPE LOOPS 

PROGRAM STRUCTURE 

BRIVE DEPERDENT CONTROLLER TESTS 
ERROR REPORTING 

ERROR INTERPRETATION 


HANDLERS AND COMMON ROUTINES 
TRAP HANDLER 
SCOPE HANDLER 
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ERROR 
CONTROL RESET ROUTINE 
CONTROL READY 
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Y ROUTINE 
WAIT FOR INTERRUPT ROUTINE 
OTHER ROUT INE 
Y HANDLER (170) ERROR TYPEOUT ROUTINE 
PONE DOWN/POWER UP RO 


UNEXPECTED TIMECUTS & RK11 INTERRUPTS 
GUICK VERYFYING MODE 
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1.0 ABSTRACT 


ABER Ar RECTAL PBTBLE 9 EG eT 
EMTS oie ticl Hr 1 RE pine: 
A COMPLETE OF THEM SHOULD 


WHEN USED IN CONJUNCTION WITH A DRIVE IT IS CAPABLE 
OF DETECTING FAULTS IN THE DRIVE ALSO. 


USED CORRECTLY THIS “ct CAN BE AN EFFECTIVE 
ANALYTIC AND DIAGNOSTIC TOOL. 


2.0 REQUIREMENTS 
2.j EQUIPMENT 
A. POP11 WITH CONSOLE TELETYPE. 
B. OF MEMORY 
C. 11 OR RKV11 CONTROLLER 
D. 1-8 RKOS OR RKOSF DRIVES OR THE RKOS SIMULATOR 
(ORIVE TYPES MAY BE MIXED) 
PRELIMINARY PROGRAMS 
RK11 BASIC LOGIC TEST I (MD-11-DZRKJ> 
2.3 EXECUTION TIME 
ite FREE FIRST PASS ON POP11720 WITH CORE MEMORY 


ES APPROXIMATELY TWO MINUTES. CONSIDERABLY LESS 
FOR FASTER MACHINES OR MEMORIES. 


tu 
iat) 


3.0 STARTING ADDRESS 
200 FOR ANY MODE vd OPERATION. NORMAL START UP WITH 
ALL SWITCHES DOWN 
4.0 PROGRAM CONTROL MODES & OPERATOR ACTION 
ty TAPE LOADING 
RKDP DUMP MODE 
site MODE 


MO-11-DZ2RKK-E, RK11 BAS! 
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4.1.1 


8.1.5 
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PAPER TAPE LOADING 


LOAD PROGRAM INTO MEMORY USING STANDARD PROCEDURE 
FOR .ABS TAPES. 


MAKE SURE THAT THE DRIVES TO BE CHECKED ARE LOADED 
WITH DISKS AND *RUN’. "WRT ENABLE’ THEM. 
CHECK THAT ’WRT PROT’ LIGHT ON THESE DRIVES IS OFF . 
PUT DRIVES THAT ARE NOT TO BE TESTED ON ’LOAD’. 


LOAD ADDRESS 200 


SET SWITCHES IF DESIRED (SEE SEC 7.0) IF TESTING ON 
SIMULATOR PUT SW<10> UP. 


PRESS START. 


THE PROGRAM IDENTIFIES ITSELF (NAME,MAINDEC NO), 
THEN THE FOLLOWING QUESTION IS ASKED: 


DRIVES TO BE TESTED? 


THE USER SHOULD TYPE IN THE DRIVE NUMBERS THAT ARE 
IN ’RUN’ AND TO BE TESTED. CARRIAGE RETURN SHOULD 
TERMINATE THE STRING. IF AN RK-OSF IS TO BE TESTED 

TYPE THE SUFFIX °F’ WITH THE FIRST DRIVE OF THE PAIR. 
FOR EXAMPLE, IF DRIVES 2 AND 3 ARE ON AN RK-OSF, TYPE 


Cond 
=z 


EXMP: DRIVES TO BE TESTED? 0,1,2<CR> 
THE DRIVES DO NOT HAVE TO BE IN LOGICAL ORDER. 
EXMP: ORIVES TO BE TESTED? 2,4<CR> 


IF ANY ONE DRIVE IS TO BE TESTED TYPE IN THAT 
NUMBER. IT DOES NOT HAVE TO BE DRIVE O 


THUS A NORMAL SEQUENCE WITH DRIVES 0,1 WOULD BE: 


RK11 BASIC LOGIC TEST 2 
MAINDEC~11-DZRKK-E 
DRIVES TO BE TESTED? 0,1<CR> 


THERE IS A “RUBOUT” FEATURE me ALLOWS RUBBING OUT 
ANY NUMBER OF CHARACTERS THAT WERE TYPED IN WRONG. 
iy I OUT CHARACTERS ARE ECHOED BACK WITHIN 


“tU" DELETES THE ENTIRE LINE 


on, 


la 
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1.1.7 F REPLY TO ANY OF ba ABOVE QUESTION IS INA ae 


ORMAT (EX: 012<CR>-0,8<CR>: O.A<CR>; M<CR> ETC) 
IS AUTOMATICALLY REJECTED, A “92 15 PRINTED but, 


THE CORRECT ANSWER CAN NOW BE RETYPED AGAIN. 
4.1.8 THE DRIVE NUMBER BEING TESTED OUT IS PRINTED: 


DRIVE _N MeO be. of 
‘ IF THE DRIVE’ IS AN RK-OSF, AN F IS APPENDED 
AT THE END OF A PASS THE FOLLOWING TYPE-OUT OCCURS 
END PASS # X 


WHERE X= PASS NUMBER (1,2,3---), CONTROL IS PASSED 
TO THE BEGINNING OF ‘THE PROGRAM AND RE-EXECUTION 
BEGINS. NO QUESTIONS ARE TO BE ANSWERED AGAIN. 


4.1.9 Sao FREE PASSES OF THE PROGRAM APPEAR AS SHOWN 


RK11 BASIC LoctC TEST 2 
MAINDEC-11-DZRKK-E 
DRIVES TO BE TESTED? 
0,1<CR 

DRI 
ORI 


4.2 RKDP DUMP MODE 
4.2.1 THE PROGRAM IS LOADED INTO THE MEMORY BY THE RKDP 
MONITOR 


4.2.2 START AS NORMALLY USING SA 200 
4.2.3 THE PROGRAM IDENTIFIES ITSELF gt | MAINDEC NO.) 


ON FINDING OUT THAT THE LOADIN WAS BY RKDP (DUMP 
MODE), THE FOLLOWING MESSAGE APPEBR 


*TO TEST ORIVE ’N’ HALT MOVE RKDP PACK AN REPLACE IT 
ult 3 WORK Prick’ CLE COCA 2 AND RESTART PRO 


IF DRIVE °N’ IS TO BE TESTED, THE RKOP PACK ON THAT 
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DRIVE SHOULD BE REPLACED BY ANOTHER PACK, THE DRIVE 


SHOULD PUT nT ENABL’ (BECAUSE RKDP WRITE 
PRO bre THe Rive) 

IF DRIVE ’N’ IS NOT TO BE CHECKED, THEN THE MESSAGE 
SHOULD BE IGNORED. 


AFTER THIS, THE SEQUENCE OF QUESTIONING IS AS 
EXPLAINED IN SEC 4.1.5. 


4.3 RKDP CHAIN MODE 
A “aah IS CHAIN-LOADED FROM THE RKDP PACK ON 
DRIV: AFTER THE PROGRAM IDENTIFIES ITSELF THE 
POLLOWING PRINTOUT OCCURS. 
"DRIVE ’N’ NOT TESTED’ 


THERE IS NO OPERATOR INTERVENTION REQUIRED. THE 
PROGRAM FINDS OUT THE NUMBER OF DRIVES PRESENT. 


4.4 ACT11 MODE 
THE PROGRAM 1S LOBDE By THE act MONITOR. 
STARTING, IDEN ‘atte TSELF. ASCERTAINS THE AUNBER 
OF DRIVES AND PROCEEDS WITH THE EXECUTION OF THE 
TESTS AS BET ORE 

5.0 DRIVE SELECTION 


IF ANY et OR IYE is dies , BE WBTTE ERbBLE FOR 


REST OF THE woe POA BUN, tnt TE LOCK" a 
al REPLY TO THE Ves TIONVES’ TO BE TESTED?) 
. TYPE IN THE DRIVE NUMBER FOLLOWED BY CR. SEE SEC 


6.0 ORIVE-LESS TEST 
USE RK11 BASIC LOGIC TEST I, WHICH IS ACTUALLY THE 


FIRST PART OF THE TWO-PART RK11 BASIC LOGIC TESTS. 
SEE SEC 1.0, 2.2. 


7.0 SWITCH OPTIONS 


ff THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR (1.£. AN 11/34) 
| pooeer te hg a He rede gees eT H REGISTER I IS 


TER 
atic i, HNC AE gisien By EABEIERE to el K eat 


TINE WHICH IS CALLED BY TYPING A’ 
RECOGNIZE THE *CONTROL G’ WHENEVER THE PROGRAM ENTERS 
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7.2 


7.3 


7.4 


our NE OR - E ST. THE 
iTtH Vv UES ARE EN AS_AN OCTAL NUMBER IN RESPONSE 
FROM EN By ROUTINE: 


*SWR = NNNNNN NEW =’ 


EACH TIME SWITCH SETTING ENT Be el SWITCH RE 
Tear TENE mt aE Te cate eh ac 
DURING SWITCH UBNTRY 


REGISTER RAY BE Fry Sue ES “SUiTcHes, INTHE 
POSITION ILL BE TO THE 


"UP? POSI ALL SWITCH REGISTER REFERENCES WILL BE 
SOFTWARE’ Se retE ER AND THE PROCEDURES DESCRIBED ABOVE MUST 
BE FOLLOWED. 
SW<15>=1 HALT ON ERROR 
SW<14>=1 LOOP ON TEST 
SW<13>=1 INHIBIT ERROR PRINTOUTS 
SW<12>=1 ON TO THE PREVIOUS 

, OPE TATEMENT 
SW<11>=1 INHIBIT ITERATIONS 
SW<10>=1 TESTING ON SIMULATOR 
SW<09>=1 LOOP ON SPECIFIC ERROR 
SW< 08> =1 LOOP ON TEST AS PER SW<07:00> 
SW<06)=1 DROP. THE. THE DRIVE BF TER MAXIMUM 

NUMBER OF ERRORS OCCUR 

SW< 15> 
THE PROGRAM HALTS ON ENCOUNTERING AN af PROR AFTER 
TYPING OUT THE MESSAGE PERTINENT 


INFORMATION. PREESING “CONTINUE” RESTORES NORMAL 
OPERATION OF THE PROGRAM. 


SW< 14> 

THE PROGRAM LOOPS ON THE SUBTEST THAT IS BEING 
EXECUTED WHEN THE SWITCH IS PUT ON. THis SWITCH IS 
USED NORMALLY ALONG SW 15. SEE SEC 8.0 

SW <13> 

THIS SWITCH INHIBITS ALL ERROR MESSAGES. NORMALLY 
USED ore LOOPING ON TEST (SW 14) OR LOOPING ON 
ERROR (SW 9). 

SW <12> 


THIS Ba) a ALLOWS THE PORGRAM TO CYCLE FROM THE 
POINT OF ERROR TO VIOUS SCOPE STATEMENT. 
NOTE_THAT IN DOING ae ANY INITIALIZATION BEING Bey} 

AT THE BEGINING i a L BE DONE A 
AND AGAIN. SEE SEC %. 0 FOR DIFFERENT SCOPE (sors 


JO1 
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AVAILABLE. 
7.5 SW <11> 
EACH SUBTEST WILL BE EXECUTED ONLY ERT NORMALLY 


AFT FAR eo] ERSS y SUBTEST Iy IT FEO Bees). 


IMES 
SETTING THIS SWITCH INHIBITS {°ERATIONS, SO THAT 
QUICK PASSES CAN BE MADE. 


7.6 SW <10) 


THIS SUITCH WHEN SET ofNOICATES | THAT TESTING ai S BEING 

BEFORE oT START- Ne Fe PROGRAM. NOTE THAT RK1IC IS 

NOT COMPATIBLE WITH THE SIMULATOR. 

ae a SW <09> 

THIS SWITCH PROVI TIGH E SCOPE 

LOB NOTE” Thane sue 1 THE Ini Tau T2BT LON OF 

PARAMETERS A NG OF THE 

BE DONE I THIS" E aor wane SWITCH 

PART ULAR PART OF cs BTE Tas BEING R TED USING 
M (E RBA S Be Thee ITTEN 

ITH COUNT PATTERNS F 
PATTERN S61 ie GIVING ERROR, YOU MIGHT 0 


7.8 oF ao” 
THIS SWITCH IS USED TO aeLECT A PARTICULAR TEST (AS 
PER SW<00-07>) FOR EXECUTION AND EQUENT LOOPING. 
THUS IF TEST 15 IS TO BE SELECTED THE SWITCH SETTING 
boos: IT SHOUL THA FORE 
SELECTING TEST 15, ALL THE PREVIOUS TESTS (1-14) 
BE UTED. 
7.9 SW< 06> 


THIS SWITCH ALLOWS THE PROGRAM TO DROP A DRIVE FROM 
THE SELECTION LIST AND TESTING AFTER MAXIMUM 
FRROR COUNT (TOTAL NUMBER OF ERRORS) 
T DRIVE IS EXCEEDED. THE MAXIMUM ALLOWABLE ERROR 
COUNT IS S, AFTER S_ERRRORS HAVE OCCURED DRIVE 
1S DROPPED’ AND A MESSAGE (DRIVE # XXX DROPPED) IS 


6.0 SCOPE LOOPS 
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THERE ARE THREE KINOS OF SCOPE LOOPS AVAILABLE 
1. SW14: LOOPING IS DONE FOR THE ENTIRE SUB-TEST 


SMEs BRAC TG Fhe °PREVIOUS "SEobe  SrafenenT- 


3. SWOS: PROVIDE THE TIGHTEST POSSIBLE SCOPE LOOP 
SEE SEC. 7.7 


EXORPLE: 4 
STl: SCOPE 


INITIALIZATION 
ERROR 1 

ERROR 2 

ERROR 3 

ERROR 4 


TSTe: SCOPE 
SEQUENCE OF LOOPING FOR DIFFERENT SAGES IS 
i RAINED BELOW. NOTE THAT a A AND ’TSTe’ 


TAGS WHICH DEFINE THE BOUNDARY OF A TEST, (IN THIS 
CASE TEST 1). TEST 1 STARTS AT ’TST1’ AND ENDS JUST 
BEFORE ’TST2’. 


IN THE ILLUSTRATION BELOW --» INDICATES THE POINT 
FROM WHERE RETURN IS MADE AND LOOPING IS DONE. 
1. ERROR 2 OCCURS, SW 14 SET. 
TST1..ERROR 2..1ST2-->TST1..ERROR 2..TST2--)TST1... 
2. ERROR 2 OCCURS, SW 12 SET. 
TST1...ERROR 2--)TST1...ERROR2--)TST1... 
3. ERROR 2,3; SW 14 SET. 


TST1..ERROR 2. crengeen 3..TST2-->TST1..ERROR 2..ERROR 
3. t8tB- --) TST 1.. 


4. ERROR 2,3; SW i2 SET. 
ST1...ERROR 2-->TST1...ERROR 2--)TST1.... 
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NOTE THAT LOOPING IS DONE FROM THE VERY FIRST ERROR 
ENCOUNTERED. THE MORE BASIC AND are HE EARLIER 
IT OCCURS AND IS DETECTED AND SHOULD BE FIXED. 


IN THE ABOVE EXAMPLE NO PART OF THE SUB-TEST IS 
BEING REPEASING DIFFERENT PARAMETERS, HENCE IT 
SO HAPPENS THAT SW 9 AND le GIVE THE SAME KIND OF 
LOOPS. THE EXAMPLE BELOW WILL DEMONSTRATE THE 
DIFFERENCE BETWEEN SW 9 AND 12. 


TST1: SCOPE 
INITIALIZATION 
ERROR 1 
MOV #13, SLPERR :’S$LPERR’ CONTAINS 
?THE ADDRESS TO LOOP 
a ;BACK ON ERROR- SW 9 
; : I 
ER I N REPETITIONS 
TST2: SCOPE ---- 
SW 12 SET, ERROR 2 OCCURS DURING K.TH 
REPETITIONS 


TST1..1,2...K.ERROR 2-->TST1..1,2...K.ERROR 2-->TST1.. 
2. SW SET, ERROR 2 OCCURS DURING K.TH REPETITION 
1$..K..ERROR 2-->1§..K..ERROR 2-->1$... 


9.0 PROGRAM STRUCTURE 
THERE ARE THREE DISTINCT PARTS OF THE PROGRAM. 


SET-UP PHASE 
ORIVE-DEPENDENT CONTROLLER TESTS 


9.1 SET-UP PHASE 
SETTING UP OF INITIAL POINTERS VECTORS, TABL 
: N THIS PART IN nove eRPER ot THE Be SIN is 
HE Oe erat Mone 
CHAIN elit IF HS iene TON MODE - 
(CHAIN ) NUMBER OF DRIVE 
CSHTROLLER Me FOUND OUT. Ree ARE eer 1s INDIEATES 


M 
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, WHICH DRIVES ARE TO BE TESTED, ETC. 
3.2 DRIVE DEPENDENT CONTROLLER TESTS 


THIS SECTION FORMS A MAJOR OF THE PROGRAM 
WHEREIN MOST OF THE CONTROLLER ts "CHECKED. 


Gi" RENTS D8 SEEIES "4, "ERR EN 
THE NEXT 

aVAT LABLE DRIVE IS SELECT "ED. 

THE DRIVE NUMBER BEING TESTED IS PRINTED OUT: 


DRIVE N ;N=0,1,2.. 


THE TESTING IS DONE IN A LOGICAL HIERCHY, SIMPLER 
THINGS FIRST, THEN MORE COMPLEX AND SO ON. 


TES ENT SK_ PACK IS 
FORMATTED, CHECK S 1% Mabe “F ha? proriee 
ba tenne SEC IS_ WR 


HE FIRST oo TOR ITTEN 
CECTING THE £ ADDRESS oF 


Pou 
THAT SECTOR ; priv #, CYLINOE CTOR 
EXAMPL! She Be isécroR 5, 
SRF ACE 0, pre Tee 20 
IN THE NEXT TEST THE HEADERS FROM THE ENTIRE PACK 
ARE READ AND CHECKE FOR CORRECTNESS. IN A 
SUBSEQUENT TEST ALL THE DO-HEADERS ARE READ AND 
ALL THE FUNCTIONS ARE CHECKED OUT. SEEK’ IS 
CHECKED IN THE THREE DIFFERENT VELOCITY MODES (HIGH, 
MEDIUN ous ORS LIKE 'NXD’, ’NXC’, 
Uses SIMULATED AND ERECK ED. 


HARDWARE POGIC IS CHECKED USING ALL THE DRIVES 
THAT HAVE BEEN INDICATED. 


TROLGATED be oR VES HAVE BEER TESTED. NOT FENTROE 
KANSPERRED 10 THE are ENNING THIS SECTION. 
THUS ONE PASS OF THE PROGRAM INVOLVES DOING 


1. SUBTEST #1 ONCE 
cs on (_DRIVE-DEPENOENT TESTS FOR ALL THE SELECTED 


10.0 ERROR REPORTING 


THE ERROR TABLE STARTING AT  SERRTB CONTAINS 
INFORMATION PERTAINING TO EVERY ERROR T 
OCCUR. EACH ITEM IN THE TABLE CONSISTS OF FOUR 


~11-DZRKK-E, 
DPRKKE P11 


oOo 


RK1i1 ba TEST 2 MACY11 30(1046) O7-JUL- 


"07-JUL-7 


ENTRIES. 


A. EM - EHTS be out nen yO THE ERROR recone TO 


B. OH - THIS IS A POINTER TO THE DATA HEADER TO BE 
TYPED OUT. 


Cc Oe PATS BaD TED BaT ONDE ie para wie. 1S TO 


°. o. a, THIS IS A TERMINATOR SIGNIFYING THE END OF 


Moma h a eee 8 


“ WOULD BE (EMT+1) IE 10400 


ITE 
BE LOOKED UP. WHEN I 
EXECUTED A TRAP ofcns 1 RROR 

T $ERROR WH ERROR C 


WHICH PROCESSE 


w-— 
z 


ERROR INTERPRETATION 


WHENEVER ERROR MESSAGE IS PRINTED OUT, ALL 
REGISTERS Aro 0 men DATA PERTAINING TO THE ERROR ARE 
AL IVEN. RKER...RKBA INDICATE THE CONTENTS 
OF THE CORRESPONDING REGISTERS AT THE TIME OF ERROR 
MESSAGE CONTAINS A PC. THIS PC 


EVERY ERROR 
INDICATES THE Post! ON _IN PROGRAM WHERE THE ERROR 
CALL_IS LOCATED. ERROR MESSAGE, Se CASe OF 


REPORT. A Ul ON UL 
EXAMINATION OF THE DATA GIVEN WILL BE CORTADA VERY 

LPFUL__IN fet Oe Hg THE FAULT. EF 
EXPLANATION OF WHA BEING i 
IS GIVEN AT THE BEINN NG OF EVERY 
NUMBERS GIVEN WITH ERROR MESSAGES ARE 


HANDLERS AND COMMON ROUTINES 
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le.1 


l2.3 


12.4 


THE COMMOSED ROUTINES USED IN THE PROGRAM ARE 
CALLED IN TWO WAYS. 


A. AS A SUBROUTINE THROUGH ’'JSR’ CALL 
B. THROUGH A 'TRAP’ HANDLER 

TRAP HANDLER 

MANY COMMONLY USED ROUTINES IN THE 


SCOPE HANDLER 


ERROR HANDLER 


ING ON ERROR, 
ETC. iS MADE 


I 
T 
I TYPED OUT Bn EXIT 16 
MADE TO THE ERROR MESSAGE TYPEOUT ROUTINE LOCATED AT 


CONTROL RESET ROUTINE 


THE CALL FOR THIS ROUTINE IS “CNT.RESET” AND IS AN 
ENCODED ° * INSTRUCTION. WHEN "CNT.RESET” IS 
EXECUTED THE CONTROL RESET ROUTINE STARTING AT 
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2 tol NTE, ASMA IIE 


WHICH THE ROUT esona Te gM! 
wor SET WITHIN : NEERTAIN. i pt ERROR PORTED: 
“it RESET" CALL _IS LOC fen *, Scary oN MEE 1 is 


MS 11720 AND S60 US Us FOR 114s WITH BIPOL 


12.5 CONTROL READY ROUTINE 
nS ROUTINE IS CALLED BY “CNT.RDY“ (AN ENCODED 
ee ree AND IS LOCATED ' “CN.RDY". THE 
ROUTINE: WA THE CONTROL READY TO SET AND WHEN 
IT_ DOES, o iE CON READY DOES NOT SET 
WITHIN A’ ate ED TIME AN MESSAGE IS GIVEN 


CNTRL RDY DIDN’T SET 
PC = XXXXXX RKCS = YYYYYY 


THE PC IS THE LOCATION AT WHICH THE “CNT.RDY” CALL 
Is LOCATED. THE WAITING TIME | IS 949 MS FOR 11/20 
189 MS FOR 11/745 WITH BIPOLAR MEMORY. 
12.6 DRIVE RESET ROUTINE 
THE DRIVE - RESET ROUTINE IS LOCATED AT “DRESET™ AND 
CALLED “JSR”. ISSUES A AND 
WAITS FOR THE rw ROY T0 SET. ON WHICH 
IS EXITED. THE TIme IS 
AND 991 MS FOR eg Sr al AR 
12.7 TIME DELAY ROUTINE 


POL 
THIS ROUTINE PROVIDES A VARIABLE 
hy IS DELAY ,N WHERE N=1 TO 177777 


12.8 WAIT FOR INTERRUPT ROUTINE 


THIS ROUTINE PROVIDES A VARI UE ie LIMIT OURING 
WHICH RK11 INTERRUPT MAY oy 
weceier ye 


WAT.INT .N N=1 10 
WAITING TIME=7.5 TIMES( X ) N US FOR 11/20, 1.5N U 


FOR 11/45 UPON ENTERING THE ROUTINE CPU PRIORITY IS 
DROPPED SO THAT RK11 CAN INTERRUPT. 
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12.9 OTHER ROUTINES 
Mad ARE OTHER COMMONLY USED ROUTINES AS LISTED 


TYPE ROUTINE FOR TYPING OUT ASCII STRINGS. 
LOCATED AT “STYPE™ 
CALLED BY “TYPE” 


ROUT INE FOR gt OUT OCTAL NUMBERS. 

LOCATED AT “STYPOC™ 

CALLED BY “TYPOC™ 

STYPDS: 

ROUTINE om TYPING OUT DECIMAL NUMBERS. 
“STYPDS” 


LOCATED A 
CALLED BY “TYPDS” 


SROLIN: 

ROUT INE 4 INPUTTING ASCII STRINGS FROM TTY. 
LOCATED AT “SRDLIN” 

CALLED BY TRON" 

SERRTYP: 

ates FOR TYPING OUT ERROR MESSAGES. 
LOCATED AT SERR 

CALLED BY “JSR SERRTYP” 

SPWRODN: 

ROUTINE A HANDLING POWER FAILURE. 
LOCATED A 

CALLED WHEN THERE IS A POWER FAILURE. 


SPURUP : 
ee FOR HANDLING POWER UP AFTER A POWER FAIL. 
ED WHEN POWER RETURNS AFTER HAVING GONE DOWN. 


13.0 UNEXPECTED TIMEOUTS AND RK11 INTERRUPTS 


WHEN AN UNEXPECTED TIMEOUT OCCURS, THE ont AT WHICH 
TIME OUT OCCURED IS TYPED OUT AND’ THE PROGRAM HALTS. 
os sae. INTACT, IT CAN BE RESTARTED BY PRESSING 


PROGRAM OM BEGINING. SW 9- LOOPING CAITY IS 
PROVIDED aa A TROUBLE SHOOTING AID. 
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14.9 QUICK VERIFYING MODE 


THE FIRST PRSS | OF OF THE Fe PROGRAM nent TR Ole QUICK VERIFYING 
MODE. ALL TESTS ON 


ONLY 
SUBSEQUEN NT Passes THE TESTS oP ORE ITERATED (NORMALLY 
50 IN SOME CASES). THUS THE FIRST PASS 
Fakes. A TE AORTER TIME TO COMPLETE, WHEREAS SUBSEQUENT 
PASSES TAKE MORE TIME. 


3s2 

853 

gc4 

gss 

8SE 

957 

958 

ay 
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678 * 14 LOOP ON TEST 

979 : 13 INHIBIT ERROR TYPEOUTS 

B80 ;% le CYCLE ON ERROR TO PREVIOUS ‘SCOPE’ STATEMENT 
861 : 11 INHIBIT ITERATIONS 

S82 + 10 TESTING ON 

p83 1 # q LOOP ON ERROR 

884 1* g LOOP ON TEST IN SWR<7:0) 

Bes it 6 BROP THE DRIVE IF MORE THAN S ERRORS 
eee 

bed . SELEAELEAELALLL ASS SAAERALEAALLAL ALS SAAAAAALALAALAEAESRARRALLPEE 
e51 YOU ARE ADVISED TO READ THE DOCUMENT BEFORE USING THIS PROGRAM. 
293 50N GETTING AN ERROR REFER TO THE LISTINGS AT THE PC POINTED 


a 


‘= 
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a94 :QUT IN THE ERR ACENT ERROR MESSAGES IF FOLLOWED 
83 + OUREFULLY chee LPaBt gE an Pde PI ROR NE BF TRE FAUL 
8937 Sad hh ddd dhalalallelalelebalalalalalalel 
g38 "SBTTL BASIC DEFINITIONS 
goo - INITIAL ADDRESS OF THE STACK POINTER ##* 1100 ### 
301 001100 STaACK= 1100 
902 “EQUIV EMT,ERROR ;;BASIC DEFINITION OF ERROR CALL 
303 “EQUIV IOT,SCOPE BASIC DEFINITION OF SCOPE CALL 
gos : MISCELLANEOUS DEFINITIONS 
306 000011 T= 11 ;CODE FOR HORIZONTAL TAB 
307 oooo12 LF= le >:CODE FOR LINE FEED 
gog 999015 CR= 15 3 § CODE FOR CARRIAGE RETURN 
909 090200 CRLF= 200 CODE FOR CARRIAGE RETURN-LINE FEED 
310 177776 PS= 177776 ::PROCESSOR STATUS WORD 
911 EQUIV PS,PSW 
912 177774 STKLMT= 177774 ;;STACK LIMIT REGISTER 
913 177772 IRQ= 2 PROGRAM INTERRUPT REQUEST REGISTER 
914 177570 DSWR= 177570 ::HAROWARE SWITCH REGISTER 
318 77570 ODISP= 177570 :tHARDWARE DISPLAY REGISTER 
917 - GENERAL PURPOSE REGISTER DEFINITIONS 
318 oo0000 RO= %0 33 RAL REGISTER 
919 090901 Rl= %1 :: GENERAL REGISTER 
920 Re= we ;;GENERAL REGISTER 
921 000003 R3= %3 > :GENERAL REGISTE! 
922 R4= “M4 :GENERAL REGISTER 
923 RS= 45 ::GENERAL REGISTE 
924 ooo0006 Rb= “6 :GENERAL REGIS 
32s 000007 R7= 4? :GENERAL REGISTER 
926 pco006 SP= “ >: STACK POINTER 
327 009007 Pc= “7 PROGRAM COUNTER 
925 -*xPRIORITY LEVEL DEFINITI 
930 oo0900 Pro= oO -:PRIORITY LEVEL 0 
931 000040 PRi= 40 :PRIORITY LEVEL 1 
932 099100 PRe= 100 ::PRIORITY LEVEL 2 
933 000140 PR3I= ~=s-s«14H0 ::PRIORITY LEVEL 3 
0200 PRY= ;;PRIORITY LEVEL 4 
009240 PRS= 240 :PRIORITY LEVEL 5S 
936 000300 PRE= 300 :PRIORITY LEVEL & 
237 000340 PR7= 340 :PRIORITY LEVEL 7 
929 -¥"SWITCH REGISTER” SWITCH DEFINITIONS 
349 0 €wiS= 100000 
94] 040000 Swl4= 
2 co SwWi3z= 20000 
943 010000 SWie= 
004000 SWii= 4000 
gy 000 Swid= 2000 
SHE 091000 cwo9= 1000 
947 e400 Swog= 400 


34 
949 000100 SwOE= 100 


~. 
. 
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950 0004 = 40 

95! nae wo4= 20 

952 000010 SWO3= 10 

953 000004 SwOe= 4 

354 ooo002 SwOl= 2 

96s o0co0: swoo= | 

956 “EQUIV SWO9,SW9 

? “EQUIV SWO8; Swe 

98 "EQUIV SWO7,SW7 

953 "EQUIV SWO6, SWE 

960 "EQUIV SWOS; SWS 

961 "EQUIV SWO4) SW4 

362 “EQUIV SwWO3;SW3 

963 “EQUIV SwWOe,;SWe 

965 “EQUIV SWO1; SWI 

365 "EQUIV SWOO; SWO 

967 -*DATA BIT DEFINITIONS (BITOO TO BITIS) 

968 1000900 81T1S= 100000 

969 040000 BIT14= 40000 

970 o20000 BIT13= 20000 

971 010000 BITl2= 10000 

972 004 BITli= 4000 

$73 092000 BIT10= 2000 

974 001000 BIT09= 1000 

975 000400 BITOg= 400 

976 000200 BIT07= 200 

977 000100 BITOb= 100 

976 000040 BITOS= 40 

979 000020 BITO4= 20 

980 000010 BITO3= 10 

981 000004 BIT0e= 4 

$2 pcoo0e2 BITOl= 2 

993 00000: BITOO= 1 

984 “EQUIV 8IT09,81T9 

gs “EQUIV BITO8,BITS 

gt “EQUIV BIT07,B1T7 

987 "EQUIV BITOb,BITS 

9g¢e “EQUIV BITOS;BITS 

985 “EQUIV BITO4,BITY 

$30 "EQUIV BITO3,BIT3 

991 "EQUIV BITO2,BITe 

992 “EQUIV BITOI,BITI 

333 “EQUIV BITOO;BITO 

99s -¥BASIC “CPU” TRAP VECTOR ADDRESSES 

$36 oo0004 ERRVEC= 4 ;; TIME OUT AND OTHER ERRORS 
997 000010 RESVE ::RESERVED AND ILLEGAL INSTRUCTIONS 
agg 00901 TBITVEC=14 te BIT 

999 000014 TRTIVEC= 

1900 000914 BPTVEC= 14 BREAKPOINT T TRAP (BPT 
1901 000020 IOTVEC= 20 : INPUT /OUTPUT TRAP (107) #4SCOPES# 
1902 000024 PWRVEC= 24 ::POWER F 

1993 000030 EMTVEC= 30 : S EMULATOR TRAP (EMT) ##ERRORS# 
1004 900034 TRAPVEC=34 :: TRAP” 

} 000060 TKVEC= 60 ::TTY KEYBOARD VECTOR 


H0e 
NOL -OPRKK-E, BK BESTE LOGIC TEST 2 ACYL 2D(A0Hp},07-JUL-77 09:38 PAGE 20 


TPVEC= 64 ;;TTY PRINTER VECTOR 
PIRQVEC=240 ;;PROGRAM INTERRUPT REQUEST VECTOR 


8 


0+ b= 0 00 
OOOO V0O00000 
ob bb 

NOU Wlu--O 


mM--OWW 


i0e1 


000174 
000176 


od200 


OOCO46 
os0cse 


000064 
000240 


ooc000 
000174 
000000 
000000 
000137 


002636 


SBTTL TRAP CATCHER 


undsep LOCATIONS FROM 


#ALL 
*SEQUENCE TO CATCH ILLEGAL 


4 - 776 CONTAIN A ™.+2,HALT” 
TRAPS AND INTERRUPTS 


;HLOCATION CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
DISPREG: .WORD 0 


. 
. 
. 
‘ 


SWREG: 0 
eat STARTING ADDRESS(ES) 
MP aeSTART ;;JUMP 70 STARTING ADDRESS OF PROGRAM 


J 
SBTTL ACT11 HOOKS 


;;SOFTWARE DISPLAY REGISTER 
;;SOFTWARE SWITCH REGISTER 


+ REELS ESEERREE EE AE REESE ESLER RAL ALA RELEASE SESE ELALALALEPEAA EASES 


HOOKS REQUIRED BY ACTI1 
$SVPC=. 


;SAVE PC 
:;1)SET LOC.46 TO ADDRESS OF SENDAD IN .$ECF 


;;2)SET LOC.S2 TO ZERO 
;; RESTORE PC 


02 
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bal as 


a 
N 
88888888888888888 


bp b— b = b+ 0 bb bb he bb b= b+ b- 2 b eh 


SEES FRERE ESS 


{=| 
Zon= 


= 
oo 


RE 
SSS8888888888 


S833 


8 


0+ = oo 
oOo 
8 8 
— 
mw Tw 
—- — 
vr +s 


- 
Ss 
wt 


888888888 


DO 
== 


i ee i ek ei er ee 
HEFESSRKRERSREVNG oH THOR LORS 


— 
— 

wu 
ms 


001162 


SNe 


FERS 


bb be 0 = 0 0 ee 


ruroru 
— ee 
wuo 





.SBTTL COMMON TAGS 


oe ee eee TbUe COMMON STORAGE LOCATIONS 
ERUSEB INTHE PROGRAR. <i 


-=1100 
SCMTAG: ;;START_OF cOnMoN Tacs 
$PasS: .WORD 0 ::CONTAINS PASS COUN 
STSTNA: -BYTE 0 ss CONTAINS THE TEST NUMBER 
tat : BOE " i EON Aine ERR PEST eration COUNT 
SLPADR: .WORD 0 i CONTAINS SCOPE LOOP RODRESS ops 
TL: “HOR® 5 + EON TAINE 75 feb BE tbRe Bere TED 
SITEMB: -BYTE 0 is CONTAINS ITEM CONTROL BYTE 
SE RRP C: BORD : + EON TAINS PC OF tae ERROR INSTRUCTION 
SGDADR: .WORD 0 3s CONTAINS ADDRESS OF ’GOOD’ DATA 
SBDADR: .WORD 0 CONTAINS ADDRESS OF ’BAD’ DATA 
SGDDAT: .WORD 0 CONTAINS ’GOOD’ DATA 
SBDDAT: .WORD 0 *:CONTAINS ’BAD’ DATA 
WORD o : :RESERVED--NOT TO BE USED 
BYE 0 ; sAUTOMATIC MODE INDICATOR 
SINTAG -BYTE : :: INTERRUPT MODE INDICATOR 
: "WORD  DSWR ;;ADDRESS OF SWITCH REGISTER 
DISPLAY: .WORD DDISP ADDRESS OF DISPLAY REGISTER 
$TKS: 177560 :: TTY KBD STATUS 
S$TKB: 177562 >; TTY KBD F 
STPS: 177564 :: TTY PRINTER STATUS REG. ADDRESS 
TPB: 1775 ::TTY_PRINTER BUFFER REG. ADDRESS 
Lt: .BY 0 CONTAINS NULL CHARACTER FOR FILLS 
SFILLS: .BYTE 2 !:CONTAINS # OF FILLER CHARACTERS REQUIRED 
FILLC: -BYT 12 :t INSERT FILL CHARS. AFT "LINE ts 
TPFLG: .BYTE 0 t: "TERMINAL AVAILABLE” FLAG (BIT<O7>=0=YES) 
GAD: .WORD 0 ::CONTAINS THE ADDRESS F 
:WHICH ($REGO) WAS OBTAINED 
900000 ee: OD SS CONTAING ( tSrecapyen) 
000000 3; ‘WORD QO + ONTBING { (She gap 34) 
500900 SREGH: te 1 ONTRINe (CSREGAD)#10) 
Nunes REGS: .WORD 0 + ONTAING (SRE RAD sie) 
ri ee! ie 8 Strate ((Beap\le 
Srecib: “Kiep 8 HCOutaINe (SRE) #2 
Maeda aie 0 : MAX. IN ORR TTERATIONS 
000000 SESCAPE:0 ::ESCAPE ON ERROR ADDRESS 
077 SQUES: .ASCII /?/ !:QUESTION MARK 
01s SCRLF: .ASCII «15> : CARRIAGE RETURN 
000012 SLF (12> : LT 


: 7 ED 
BLE: -ROCLE (1G)  ssunnnubldorbcceteeveusenuseuenssesseses 
QOS015 OS1104 oOS3111 MSG1:  .ASCIZ <15><12>/DRIVE PRESNT/ 


ee 


1085 001224 020105 051120 051505 


1086 001232 gaeie 000 
1087 1 - EVEN 
1088 001236 005015 047516 O42516 MSG2: .ASCIZ <15><12>/NONE/ 
Hin 001244 000 
1091 001245 01S O41412 OS2116 MSG3: .ASCIZ <15><12>/CNT RDY DIDN’T SET/ 
1032 001252 051040 OS4S04 O42040 
1093 001260 O4e111 Oe3516 O201e4 
fee 001266 O4eSe3 000124 
09% 001272 OOS01S 051104 OS3111 MSG4: .ASCIZ <15><12>/DRIVE / 
hee 001300 020105 000 
0339 001303 015 o40412 O46114 MSGS: .ASCII <15><12>/ALL DRVS/ 
. 001310 2040 O0S3lee 123 
001315 O40 051104 OS0117 MSG: .ASCIZ / DROPD/<15><1le> 
O0132e 006504 O000le EVEN 


;RK11 REGISTERS 
; ANY REASON THE REGISTER ADDRESSES ARE DIFFERENT FROM THESE 


LIF FOR 
MODIFIED $0 THAT t ONTENTS OF THE APPROPRIATE POINTERS SHOULD BE 


. EVEN 
001326 177400 RKDS: 177400 
001330 02 RKER: 177402 
001332 177404 RKCS 177404 
001334 177406 WC 177406 
001336 177410 RKBA: 177410 
001340 177412 RKDA: 17741le 
001342 177416 RKDB: 177416 


ee be be ee ee ee Oe bh be ee ee ee 
aw an cwn-ODw VEE or 


= bs bb bs 0 be be 0 


;FLAG TO BE SET TO 1 WHEN ON SIMULATOR 

FRAG ATRG BRBREES oF PEE ARRIVE TINDER TEST 
NS ES ED 
NS 


on 
D4 
| Lael 
<36 
Dr 
om: 
20 


DRVDON: 0 ‘CONTAINS THE NUMBER OF DRIVES CHECKED. 
! e NT H TIME THE TESTS FOR 
HE 


PSBSVE RZ 





> > + b= bb bb ek ee all eel Bed 
b+ b+ b= bb ob bs be 


AT hive 
3 DRVPTR: 0 ; CONTAINS TH POINTER. TO THE DRIVE FLAG (ORIVED 
33 INDXL: p fceNeRAL Th KOR TYE IRC EOuN : 
3s COUNT: 0 !GENERAL COUNT REGISTER 
36 COUNTI: O :COUNT REGISTER USED FOR *DRESET’ SUBROUTINE 
37 TIMER: 0 ‘TIMER REGISTE 
38 EFLGI: 0 :SET, TO INDICATE A PARTICULAR 
2 “ERROR CONDITION 


a 
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HSS BRIS AR cr: 13) ENING aes a on 


tide 001400 000200 RKPRI: 200 ieee healt 
1146 i SHOR ey 
114g ny se BE ste £ cfnkEn To aor 
1149 001402 900220 RKVEC: 220 . ; 
ite? tt TE LGarKin' BBs F etl foe Mss, 
001404 000000 FFLAG: O 
001406 000000 ODDEVN: 0 DP ee DETERMINE WHICH OF RK-OSF DRIVES ACTIVE 
001410 000000 DOPCH: O ut Lat yah ae hee 
O0i41ie oo0000 DRIVS: 0 ROOF Fic THe NUPBER OF DRIVES PRESENT 


; THE FLAGS BELOW (BIT O) oe SET T0_1 TO INDICATE THAT A PARTICULAR OR 
ciety IRutAieBl? Kina BF ent SL Ein tat 
HetME, ec OPEAS WLP EPSP TEST UEP 





Oe ee be be be be be be ps be be bn be be he ee 
= bs 02 Bo be bh bb be bt a be be be ps be be 
OW Nout Fin DU PUNE WU Om UTE CORO 


ded 0 sFLAG SET TO 1 WHEN DRIVE 0 PRESENT 
| iia 
ORIV4: 0 FOR DRIVE 4 
DRIVS: 8 FOR OR Ve 5 
DRIVO: ‘FOR DRIVE 6 
DRIV?: O !FOR DRIVE 7 
001434 00000 TSEFLG: O 
001436 o00000 PHYDRV: 0 
001440 900000 SIZYET: 0 


3 


D 


: 


SESS SRREGS HOSE SRR ES 


Oo 
— 


eter eet ee ee ee ee 


ruru 
25 


See 


rorurururoruroruforfururufurfurur fr 
Hg fe ah rt set ar pee 
—-OWONMTUS WO 


se luruturururururerutufururururorurete 
VER PS 


+ = 
RURIRT RT RTR RA 
SRESRLSSS 


e- 
tw 
Ww 
N 


001442 
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ERROR POINTER TABLE 


-SBTTL ERROR POINTER TABLE 

pers Le allel a iL bad taht yA . ne aoe™ Ling! aan — 

side OS, TROT WRU alah Ti Pm 
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 

78 SRRIMTE 18 TE ESR SEB 


DF +S BOINTS “3 THE paTA FORMAT 


;THE ERROR ITEMS TABLE CONSISTS OF ALL THE POSSIBLE ERROR MESSAGES 


: OR CALL IN T PROGRAM CORRESPOND TO 

:USED TEM BURGER. IN HE "Fanon T Aste Hie HE EPR NOS ue 

t PROGRAM C TEM 1° IN THE E ERROR” TABLE. 

: EMgee’ ee THE E POINTER te THE ERROR NES WHICH WILL BE TYPED 

OU Ate N CASE THA T ERROR atthe TO TO OccuR. THs OR "ERROR 1” THE ERROR 

srr S Inf OAT BE red R BLOCK fEich WILL BE TYPED OUT 
Battle ay we ERROR HE 


ae hi: THE MEMORY LOCATIONS WHERE 
THE STNFORMATIO RELEVANT IP penon TYPE OUTS (LIKE PC, CONTENTS 
OF RKCS ETC.) OMILL PIC ROM 


‘Te LAST ROW CONTAINING ’0’ SERVES AS A TERMINATOR. 
; IF_ON RUNNING THIS PROGRAM A TIMEOUT WERE TO OCCUR ON ADDRESSING RKDS 
:(177400), BECAUSE OF SOME FAULT, THE FOLOWING TYPEOUT WOULD 
; OCCUR ON’ THE TELETYPE. 
TIME OUT moe REG 
seeeee = =6177400 
‘NOTE THAT ###88% WOULD BE THE ACTUAL Pt WHERE "ERROR 1° IS LOCATED. 


sabe LOCATE SERROR’. THE ERROR CALL _IS AN ‘EMT’ 
HINSTRUCT TON Th iis ee BYTE EN ENCODED TO PROVIDE INDEXING TO THE 
TM 


ee ve" 04 001 
; ERROR 103’ IS 104126 ETC. 


;ERROR ITEMS TABLE 
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ie ITEM 1 

l 001442 025376 EMl2 ;’SIN’  # SET 

1241 OO1444 032323 DH4YY :PC RKCS RKER RKDS RKDA 
le42 0014 dhe O0T20 : SERRPC SREGO SREG1 SREG2 SREG3 
1243 0014 0 

1244 

ie ;ITEM 2 

1247 O0014S2 027247 EM70 ;CNTRL RDY DIDN’T SET ON READ/FMT FROM DISK ADDRESS 
1248 O0014S4 032107 DH14 :PC RKCS RKER RKWC 

12049 O014S6 031756 OT26 ?SERRPC $REGO REG! SREG2 

1250 001460 000000 0 

1251 

ios ;ITEM 3 

1254 001462 025423 EM16 ;RKDA WRONG AFTER SSE 

1255 001464 032043 DH4 EX RECVD 

1256 OO1466 031726 OT2  SERRPC SREGO SREGI 

1257 001470 o00000 0 

1258 

1259 ;ITEM 4 

see 001472 452 EMe1 ;RKDS ERROR 

lebe 001474 032207 DH34 :P RKDS 

1263 001476 031720 OT1 ?SERRPC $REGO 

1264 001500 000000 0 

1265 

1508 ;ITEM «6S 

1268 001502 464 EM30 ;'DPL’ BIT SET, Gem ORI DRIVE POWER 
1269 001504 032151 DH30 :PC RKC RKDS 

1270 001506 1756 DT26 : SERRPC SREGO S$REG1 S$REG2 

1271 001510 0 

1272 

ic?3 ;ITEM 6 

1275 001512 025474 EM31 ;’DRU’ BIT SET, CHECK DRIVE 

1579 Qoleie Gai7ee BYse «= SSERRPC SREGO SREGI SRE G2 

i ies Base 

1 

ise? sITEM 7 

1282 001522 EM32 ;’RKOS’ BIT NOT SET 

ie ies BT ewe Bel 

(See 01836 900050 A 

See ITEM 10 

1288 j 

1289 001532 o2sse5 EM33 i ORY’ NOT SET 

1530 poles ase 3 DH4YY ;PC RKCS BEER RKDS RKDA 
1291 1$36 1736 DT20 *SERRPC SREGO $REG1 S$REG2 S$REG3 
Sas 001s4¢ cooco0 0 
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1896 


Pinicttctiise teeny: 


WWWWWWWWWW) 
bs 


b= bbb + b= b= bb = = Oo 0 b= Oe P= em 
WONMW CWO 


SSSR ISRES 


WWWWII GI) 
eiatnini tad 


sh ee ee he ee Be Be eb 0 be oe ee 
eR ESetESS 
Wwrur-O 


22 
Wet.) 


001542 

101544 
001546 
001550 


at 
uw 
£ 


a 2 


Roe | BSNS 


o 
~~ 
oO 
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ERROR POINTER TABLE 


; ITEM 


; ITEM 


; ITEM 


; ITEM 


; ITEM 


; ITEM 


: ITEM 


; ITEM 


11 
EM34 


;’SOK’ DID NOT SET 
;PC RK 
;SERRPC SREGO 


pene CONTR ah DION’T COUNT TO O 
;SER 


;’SEC COUNTR’ DIDN’T INCREMENT 
:PC PRSNT-COUNT NXT-COUNT 
;SERRPC SREGO $REG1 


3 SECTOR COUNTER’ INCREMENTED WRONG 
;PC EXPCTD RECVD 
;SERRPC $REGO SREGI 


;DIDN’T GET SC=SA FOR THIS SECTOR 
;PC SECTOR RKDS 
;SERRPC SREGO SREGI 


3 ERROR FOS RDY’ SHOULD BE SET+ 
;SERRPC SREGO 


;RKBA ERROR 
:PC EXPCT RECVD 
:SERRPC SREGO SREG1 


; UNEXPECTED RK11 INTERRUPT 
: SERRPC 
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DZRKKE .P11 


bi 


abana sole 


e 


4 
Seek 86 ERDE 


ade 


aa 


+ b= b= 0 b= b p= ps pe 
w bs 
Zan~ 


a 
BTR 8 Botan 


PBReB IIIS 


SSRSR REARS BERR 


-_ 
s+ 
oO 
-- 


BSB8 


“ 
~ 
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ERROR POINTER TABLE 


; ITEM 


; ITEM 


; ITEM 


; ITEM 


; ITEM 


; ITEM 


ITEM 


; ITEM 


21 


s CNTRL RDY’ DIDN’T SET AFTER = OR DRIVE RESET 
RKCS RKER  RKDS RKDA 
 SERRPC SREGO SREG1 SREG2 S$REG3. 


3 ERR’ OR *HE’ SET ON SEEK OR DRIVE RESET 
;PC RKCS RKER RKDS RKDA 
:SERRPC SREGO SREG1 SREG2 SREG3 


;RKER BIT oe = saa! Fl 
 SERRPC SREGO SREG1 SREG2 


Boce CHANGED hak’ 9 pctheo WAS DONE 
; SERRPC SRECO $REG1 


;"R/W/S RDY’ DID NOT CLEAR 
;PC RKCS RKER RKDS 
;SERRPC SREGO SREG1  SREG2 


ews RDY* DIDN’ tT Al a DRIVE RESET 
;SERRPC $REGO SREG1 SREG2 S$REG3 


;RKDA CHANGED AFTER SEEK 
:PC EXPC REGVD 
; SERRPC SREGO SREG! 


;CNTRL RDY’ DIDN'T eae AS GO WAS SET 
:PC RKC RKER RKDS 
:SERRPC $REGO S$REG1 SREG2 


~, 
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1406 :ITEM 631 

1408 001742 O26446 EMSY —s; "CNTRL_RDY’ DIDN’ T SET ON DOING WRITE/FMT STARTING 
1409 >FROM <DSK-ADRES> 

1410 001744 032370 DHSY =e. s PC RKCS | RKER  RKDS KDA 

1411 !DRV@ CYL _<DSK-ADRES> SUR SECTR 
1412 00174 031770 DTSY  :SERRPC SREGO SREG1 SREG2 SREG3 

1413 '§REGY SREGS SREG6 SREG> 

1414 001750 o00000 0 

1415 

1416 -ITEM 32 

1418 001752 O26540 EMSS ;’HE’ OR ’ERR’ ON WRITE/FMT STARTING FROM 
1419 : <DSK-ADRES? 

1420 001754 932370 DHSY ~=—s-«s PC RKCS RKER RKDS ~~ RKDA 

1421 :DRV@ CYL _<DSK-ADRES> SUR SECTR 
1422 001756 031770 DTS4  :SERRPC SREGO REG] SREG2 SREG3 

1423 :$REGY SREGS SREGE SREG7 

1424 001760 ococc0 0 

1425 

is sITEM 33 

1428 001762 026617 EMS& = ; RKDA_ INCREMENTED WRONG ON WRITE OR WRITE FORMAT 
1429 001764 032477 DHS6 4320s : PC EXPCT: DRV® CYL SUR SECTR 
1430 ‘RECVD: DRV@® CYL CUR SECT 

1431 001766 031770 DTS4H  § :SERRPC SREGO  $REG1 Shece $REG3 
1432 ‘$REGY SREGS S$REG6 SREG7 

1433 001770 oj0000 0 

1434 

1435 -ITEM 34 

1437 001772 EMS7 —-«; RKWC DIDN'T OVERFLOW ON WRITE OR WRITE FORMAT 
1438 001774 032071 DHS : VD 

1439 001776 031720 OTl ?SERRPC SREGO 

1440 o92006 900000 0 

142 sITEM 35 

1444 002092 026714 EM60 —s«gs RKBA INCREMENTED WRONG ON WRITE OR WRITE FORMAT 
1445 002004 032043 DHY :PC EXPCT RECVD 

1446 031726 0T2 ?SERRPC SREGO SREG1 

1447 002010 o00000 0 

1448 

1399 :ITEM 36 

1451 002012 026753 EMb1  ;RKER SET, ON WRITE/READ/FORMAT 

1452 002014 032151 DH30 2~3=—s «: PC RKCS KER _RKDS 

1453 16 031756 OT26 :SERRPC $SREGO S$REG1 SREG2 

1454 O02020 0 

tee ITEM 37 

1457 

1458 002022 027010 EM62  ;RKDB ERROR 

1459 002024 032043 DHY : BC EXPCT RECVD 

1460 031726 OT2 ?SERRPC §REGO S$REGI 

1461 0602030 990000 5 


Ph 


WINASSELE RTE 


14 


1504 


BBuee 


0+ b= hs ob a a ee 
UuVununununuot 
+ 0+ 0: 2 bb be 
NMUN cine O 


-Pll 
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027022 
032477 
031770 
000000 


027066 
032604 
031726 
000000 


027247 
032370 
031770 
ooc000 


027340 
0323706 
031770 
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; ITEM 


; ITEM 


; ITEM 


; ITEM 


; ITEM 


; ITEM 


; ITEM 


40 
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ERROR POINTER TABLE 


;RKDA INCREMENTED 2 ON READ OR READ FORMAT 


RE cvo: Bava 


SERRPC 
: SREGH SREGS 


os ape SECTR 


SREGO SREG1 SREG2 S$REG3 
SREGE  SREG7 


i RKWC a 9 NOT sat 8 pe ON READ OR READ FORMAT 


? SERRPC SRECO 


$REG1 


;RKBA eee th ON READ OR READ FORMAT 


! SERRPC SAECO 


$REG1 


; INCORRECT PACER FROM ecior 
EX RECVO 


: SERRPC SREGO 
;DATA ERROR 


*PC EXPCT 
;SERRPC $REGO 


;DRVS CYL 
; SER 
:SREGY S$REGS 


PCT 


SREG1 S$REG2. 


RECVD OSK-ADRES 
SREG1 S$REG2 


;’CNTRL RDY’ DIDN’T SET ON DOING READ/FMT STARTING 
OM ADRES > 


RKER RKDS RKDA 


<DSK-ADRES> SUR SECTR 
SREG1 S$REG2 $REG3 
SREGE S$REG7 


3 HE’ OR *ERR’ BIT SET ON READ/FMT STARTING 


; FROM stale 
:PC RKCS 


:DRVe = CYL 
; SERRPC SREGO 
:$REGY SREGS 


RKER RKDS RKDA 
ES> 

$REG2 
$REGE = S$REG7 


SECTR 


MD-11-DZRKK-E, RK11 BASIC LOGIC TEST 2 MACY11 30(1046) O7-JUL-77 09:38 PAGE 30 


DZRKKE.P11 07-JUL-77 09:37 ERROR POINTER TABLE 
1518 OO021e0 Oo00000 0 
1819 
teg0 sITEM 86447 
task 002122 O27416 EM72 ; WRONG DRIVE ID IN RKDS AFTER SEEK 
1S23 002124 032043 DH4 EXPCT RECVD 
1Se4 O0el2e6 031726 OTe  SERRPC SREGO SREGI1 
1SeS 002130 o00000 0 
1259 
1255 ;ITEM 50 
ts} Es ee HE, aor POLL, DRIVE ID BITS‘13-15) SHOULD BE CLEAR 
tea 002136 031726 DTe : SERRPC $REGO 
1$3e 002140 900000 0 
1533 
a4 ;ITEM = =651 
1536 OO02l4e 027532 EM74 ; HARDWARE robe INTERRUPTING DRIVE # NOT PRESENT 
1537 002144 032726 DH74 -PC 
1538 002146 031720 OT1 : SERRPC SRECo 
1539 002150 900000 0 
1540 
fais ;ITEM Se 
1543 002152 027602 EM7 ; DRIVE #’ DID NOT INTERRUPT CURING HARDWARE POLL 
1544 002154 032726 DH74 DRIVE # 
1854S 002156 031720 OT1 : SERRPC $REGO 
1546 002160 000000 0 
1547 
i2u8 sITEM $3 
1550 O02l62 O276Se EM7E ;SCP DID NOT SET AFTER WAS DONE 
1551 002164 03310¢ DH117 =; PC K 
15Se O0e166 031720 OT1 ;SERRPC S$REGO 
1$S3 002170 O00000 0 
15S4 
tes4 ;ITEM 8 S4 
15S7 002172 027715 —EM77 ;RKDA CHANGED AFTER “ORIVE RESET’ 
1558 002174 OQ32043 OHY :PC x RECVD 
1559 002176 031726 OTe : SERRPC RECO $REG1 
1560 O02e20C 9000 
1561 
1306 ;ITEM SS 
1564 O02202 927752 EM100 ; DATA ERROR AT WORDs 
1565 002204 022747 DH1O0 8=_ s PC WORD® EXPCT RECY 
1566 O02 031756 DT26 *$ERRPC $REGO S$REG1 $REG2 
1567 O0022:0 900000 0 
1S68 
1363 sITEM S6 
1571 OCG22le 027775 EM101 5 CNTR ROY DIC a set AFTER READ CHECK 
1572 002214 032323 K RKOS RKDA 


DH44 
1573 OOeele 031736 DT20 SERRPC $REGO SREGL $REG2 $REG3 


MO-11-D 


DERKKE. 


— 
o 


COrrro 
= bb 
WO NOU © WW) 


bb b= bh hs ee 


GORE ORR 


ZAKK-E, KIL BASIC LOGIC TEST 2 
Bit 09:37 


002220 


002312 
214 
002316 


000000 


0308 
032151 
031756 


030345 
032151 
031756 
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ERROR POINTER TABLE 


; ITEM 


; ITEM 


; ITEM 


; ITEM 


; ITEM 


; ITEM 


: ITEM 


: ITEM 


3 ERR’ OF *HE’ SET ON == CHECK 
;PC RKCS RKER RKDS 
;SERRPC SREGO SREG1 SREG2 


;°CSE’ ON READ CHECK 
RKER 


PC 


'SERRPC SREGO 


; RKWC a NOT aS ON READ CHECK OR WRITE CHECK 
t SERRPC SREGO SREGI 


;RKDA ore es ON READ CHECK 
: SERRPC SREGO SREGI 


; RKBA CEN? AFTER READ CHECK 
EXPCT  RECVD 
 SERRPC SREGO SREGI 


; MEMORY WORD iat a seh AY CHECK 
 SERRPC SREGO SREG1 SREG2 


;CNTRL RDY DID NOT SET AFTER WRITE CHECK 
:PC RKCS RKER RKOS RKDA 
:SERRPC $REGO SREG1 SREG2 $REG3 


HE OR ERR BIT SET pF TER DOING WRITE CHECK 
RKC RKER RKOS 
 SERRPC $REGO $REG1 SREGE 


GO3 
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1630 002320 000000 


1631 

ibse ;ITEM 67 

1 002322 030372 EM112 ;WRITE CHECK ERROR 

1635 002324 032151 DH30 :PC RKCS RKER RKDS 

1636 002326 031756 DT26 : SERRPC SREGO SREG1 S$REG2 

1627 002330 000000 0 

E38 

a ;ITEM 70 

ae | 002332 erat puta sRKDA INCREMENTED WRONG ON WRITE CHECK 
feds Bossse | aizee pYSiSEeepc SREGO  SREGL 

1644 002340 900000 0 

1645S 

teas ITEM §71 

1648 OO02342 0304Se2 EM114 ; RKBA INCREMENTED WRONG ON WRITE CHECK 
1649 002344 032043 DHY VO 

1650 O02346 031726 DT2  SERRPC EREGO SRECL 

1651 002350 O00000 0 

16S2 

iPae ITEM 72 

1655 002352 030511 EML1S ;RKBA INERSIENTED WITH IBA SET 

1656 002354 032043 DH4 EXPCT RECVD 

1657 002356 031726 DT2  SERRPC SREGO SREGI 

1658 002360 O00000 , 0 

1659 

tea ;ITEM 73 

l662 002362 O3054S EM116  ;WRONG MEMORY LOCATION CHANGED WITH IBA SET 
1663 002364 032747 DH100 :PC WORDs EXPCT RECVD 

1664 002366 031756 DT26 *SERRPC SREGO $REG1 SREG2 

1665 002370 000000 0 

1666 

ta e4 ;ITEM 8674 

1669 002372 030620 EM117 iRKIL 010 NOT INTERRUPT WHEN IDE WAS SET 
1670 002374 033102 DH117 RKC 

1671 002376 031720 oTl  SERRPC $REGO 

1672 0024 000000 0 

1673 

1673 ; ITEM 75 

1676 002402 EM120 iRK11 OID NOT INTERRUPT AFTER SEEK WAS INITIATED 
1677 O02404 033102 DH117 RKC 

1678 002406 031720 DT}  SERRPC $REGO 

1679 002410 0000 0 

1680 

168} -ITEM 76 

1683 O0e4%1e 030740 EMle1 s SCP SET per One SEEK COMPLETED 

1684 002414 032102 DH117 


1685 O024i€ 031720 oT)  SERRPC SRECO 
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1686 002420 000000 

1687 

te :ITEM 38677 

184 002422 030776 EMl22 ;RK11 DID NOT INTERRUPT AFTER SEEK COMPLETED 
tee eee Oi TeE aD Pe mee Seeto | Seecs | See 

} Fe 

tees BRSIS8 B8daRe = 

1694 

ita :ITEM 100 

oe 002432 SE At, + ha ghd! DID NOT CLEAR *SCP’ BIT 
1b Bose i738 ni i SERRPC Bee 

1701 

170e ;ITEM 101 

1704 O024%4e 031104 pated pRKI1 OID NOT INTERRUPT AFTER READ WAS DONE 
1705S 002444 H117 RK 

1706 O0e4%46 031720 OTl  SERRPC $REGO - 

1707 002450 0 

1708 

eae : ITEM 102 

1711 OOe4%S2 O31146 EM12eS s CNTRL RESET DID NOT CLEAR REGISTER 
l7le O0eC4S4 032014 DH2 REGADD RECVD 

1713 O0e4S6 031726 OTe : SERRPC SREGO S$REGI 

1714 00 0 

1715 

718 ;ITEM 103 

1718 OO24%6e 031205 EM12e6 jRK11 DID NOT it ll AT CPU LEVEL 
1718 O0e4%64 O3311é DH126 LEVEL RKCS 

1720 OOe%66 031726 DT2  SERRPC §$REGO S$REGI1 

1721 002470 900000 0 

1722 

763 ; ITEM 104 

1725S 002472 O31e46 EM127 sRKIL INTERRUPTED AT WRONG CPU LEVEL 
1726 OO2474% O3311E6 DH126 LE RKCS 

1727 O02476 031726 OTe  SERRPC SRECO $REG1 

1728 O0esoC 900000 0 

1729 

ter sITEM 105 

1732 O02502 031310 EM130 > a) A yl SET a -— 

1733 002504 033144 DH130 exer B git 

17 002506 031756 OTeé + SERRPC SAECO $REG1 BRR 

1735 002510 900000 0 

173 

1737 

1728 ;ITEM 106 

aa 


1740 O0eSle 031345 EM131  ;HE OR ERR DID NOT SET 
i741 002514 033203 OH131 8 ;PC RKCS RKER 


MO=II-OPRKK~E, AKA BASIE LOGIC TEST 2 
1s Boses8 Badoe 


a 

1746 

1747 ouesze 031372 

1748 O3i728 

1750 002530 000000 

1781 

1752 

1753 

1754 us 

178. 

1787 002540 000000 

1758 

1759 

17et nese 314 

res Bosses 8426 

1763 00254 031726 

1764 002550 0 

1765 

1766 

1767 

1768 002552 031470 

1763 002554 032043 

1770 002556 031726 

1771 002560 0000 

177¢ 

1773 

1774 

1775 002562 030302 

177? Qossee 031756 

177 Boes?e 00000 

1779 

1780 

1781 

1782 002572 031525 

1783 002574 032323 

1784 002576 031736 

1785 002600 

1786 

1787 

1769 03154 
UU 

1756 Boseos | O3a26 

1791 002606 031736 

792 002610 000000 

1793 

1794 

1795 

179% : 

1797 O02612 031612 


103 
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; ITEM 


; ITEM 


: ITEM 


: ITEM 


; ITEM 


; ITEM 


> ITEM 


; ITEM 


_ 


116 
EM141 


;SERRPC S$REGO S$REG1 


;RKER ct 
ie err RECVD 
RRPC $REGO S$REG! 


sXxC BIT DID NOT ER 


ipé = $REGO = SREGI 


RKDA 
$REG2 


5 RKLL IDN’T INT T ON SOFT ERROR 
Be ORs UT RKER 
: SERRPC SRECO $REG1 


i MEX BITS INCREMENTED WRONG IN RKCS 
EXPCTD RECVD 
 SERRPC $REGO SREG1 


i CNTRL oO y oe ye WRT CHK 
 SERRPC $REGO SREGL SREG2 


;’WPS’ NOT CLEAR 
: RKCS 
:SERRPC $REGO 


KER RKOS RKDA 
$REG1 $REG2  S$REG3 


spatA ERROR ON TRANSFER poe DISK TO TTY 
EX RKBA RKCS 


XPCT  RECVD 
 SERRPC SREGO S$REG1 SREG2 $REG3 


;’DRIVE #* PRESENT, BUT NOT SPECIFIED 


303 
SAS PTNE oP, BFHGGLGH TEST © PRM SERMABNagGE 7? 9538 POE 3 


1798 002614 032726 DH74=—sPC.=C=s«ORXIVES 8 
1799 002616 031720 DT1  :SERRPC $REGO 

1809 O026e3 000000 0 

1802 SITEM 117 

1803 

1804 002622 025364 EM11  ;RKWC ERROR 
as DH RE eepc EERO | SRECA 
16 Bhses8 pao0o8 : ; 

1898 SITEM 120 

1809 002632 031656 EM142 

1819 O0e34 000000 6 

1812 

1813 


SAAT AAG 7? He 


1814 002636 0000S START 
Bis - GIVE ones TIME TO LOAD HEADS’ ‘HR CAs HA ap 
1816 002640 023737 o00042 o0004% ae42, a846 WE IN 7 AUTOMATIC MODE? 
(Eig Poseeh BRS? zene es veel era 

4 Aaaeed V #250, RO i 
1820 002660 032777 O00200 176440 20%: BIT #200, JRKDS sDRI VE READY. . 
1 BNE TARTA 
1 1 L l 
1 1 DEC RI 1 4 “BUT. . 
1824 002674 001376 BNE .-2 DON’T WAIT. . 
1825 002676 005300 DEC RO FOREVER. 
1826 001367 BNE 20S 
1827 002702 o00000 HALT ;RKDS BIT 7 (DRIVE READY) NEVER SET 
1828 002704 STAR 
1829 iti INITIALIZE THE COMMON TAGS 
1830 >;CLEAR THE COMMON TAGS (SCMTAG) AREA 
1831 002704 012706 001100 MOV 8SCNTAG, R6 gE IST LOCATION TO BE CLEARED 
1832 9027 19 005026 cemrhad CLR (Rb)+ » s3CLEAR MEMORY LOCATION 
1834 ppSate 1374 c he ;;LOOP BACK IF NO 
1835 002720 012706 001100 MOV SSTACK, SP :SETUP THE STACK POINTER 
1836 js INITIALIZE A FEW VECTORS 
1837 002724 012737 022134 o00020 MOV SSSCOPE JSIOTVEC ;;10T VECTOR FOR SCOPE ROUTINE 
1838 0027 32 012737 o00022 MOV #340 aslOTVEc+ 7 iCEVEL 
1839 012737 O22406 000030 MOV 8SERROR SeenTV : “VECTOR FOR ERROR ROUTINE 
1840 00274 012737 000032 MOV #340, D8EMTVEC+E ” HHEveL 
1841 002754 012737 024672 000034 MOV #STRAP ST Ree VEC TRAP VECTOR FOR TRAP CALLS 
1842 002762 012737 000036 MOV 340, ab C42; téveL 7 
1843 002770 012737 024772 O00024 MOV DSPWRVEC ; POHIER FAILURE VECTOR 
1844 002776 012737 000340 O000c6 MOV #340, JSPURVEC+2 ; SCEVEL 
1845 003004 0012 CLR STIMES : IN TFfAi 1ZE NUMBER OF ITERATIONS 
184% 003010 001210 CLR SESCAPE tECLEAR THE ESCAPE ON RROR ADDRESS 
1847 003014 112737 001115 HOVE al, SERNAX OW ERROR PER 
1648 bosdee 12737 bo dee 001 106 i INITIALIZE THE LOOP AOGRESS_FOR SCOPE 
183 mass : + SIZE FOV, extol pectttEn IE fot FOUN oe ami 
1851 ::EQUAL TO A *. ie SETU OR A WARE CH REGISTER. 

ae 

{es poses 13539 psn7e 00004 NOV aries ae a "BGR EET OR 
ipee 003056 b15737 roEon rare HOY sOOTSP Ot DISPLAY ae Fone He tereAT REGISTER 
1856 002064 2777 177777 176046 CMP 1, aSWR : TRY TO PERERICE HARDWARE SiR 
l 1012 BNE ty ;;BRANCH IF NO TIMEOUT TRAP OCCURRED 
1858 jAND THE HARDWARE SHR IS NOT = 1 
1859 003074 000403 BR 6S$ : BRANCH F NO TIMEOUT 
1860 003076 012716 003104 64S: MOV #65S, (SP) ::SET UP FOR TRAP RETURN 
1 vaegted Weed 176 OO1140 ESS ROY ;POINT TO SOFTWARE SWR 
tBPS iRtbe piss as 00174 Oo01142 MOV SOL ePRES BISPL y’? 
1864 003120 012637 o00004 66S: MOV (SP)+, SaERAVEC” ” RESTORE ERROR VECTOR 
1 003124 023737 opoo42 coDD4s CMP a842, 2846 ;ARE WE IN ACT11 AUTOMATIC MODE? 
Bee 003132 O014i6 BEQ 69$ YES, SKIP TITLE 
1868 .SBTTL TYPE PROGRAM NAME 
1g69 TYPE THE NAME OF THE PROGRAM IF FIRST PASS 


Beate. Bit ©" oP} 289" o: 997° TEST & 


1879 


4 Pb b= bh bs bh pa pape 


SaRR EOS 


cae oc iene «a © BAGH cece 


2 


See GrReGRSS 


WWOwWowWW oOwWWw 
er 
WONMULES wre 


e- bb bb bb bb BP Bb bb 0 bb b= bb pe 
Oy 


ah 


003134 


Baais2 
boise 


00S2e7 


Podaat 
Borde 
pe arez 
ao0403 
112737 
000424 


177777 
003200 
ooo04e 
001140 


000001 


000176 


001134 


oooo04 


001400 


000041 
001410 
001410 
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. SBTTL 


69$: 
70$: 


big: 


1$: 


2s: 


3S: 


M NAME 


INC ee i ipency: ME? 
Wybe Es FZ ereinc 


GET lo 4fgh SOF TWARE stig me Deka 
TST NG UNDER XXDP/ACT? 


CMP Su , SSWREG ae “e REG SELECTED? 
erSuR SETTINGS 


70$ 
MOVE #1, SAUTOB se AUTO-MODE INDICATOR 


BR 678 T_OVER THE ASCIZ 
-ASCIZ <CRLF>/RK11 Locré’ TEST 2/¢<15)< 12> /MAINDEC-11-D2RKK-E/<CRLF> 


MOV #DDPCH, RO 
MOV #13 RI 


a 


CLR (RO) 

INC Ri 

B 1 

IN :FIRST START ? 

BNE START *BR IF NOT 

MOV ERRVEC,-(SP) | ;SAVE ERROR VECTOR ADDRESS 

MOV #2, ERRVEC *NEW VECTOR ADDRESS 

TST PS *SEE IF PROGRAM CAN REFERENCE THE 
*PROCESSOR STATUS WORD 

BR 3$ iBR IF REFERENCE DIDN’T CAUSE TRAP 

MOV #140, RKPRI “SETUP INTERRUPTING PRIORITY TO VALUE 
‘WHICH WILL ALLOW INTERRUPT ON AN LSI-1! 

MOV #3$, (SP) ‘SETUP RETURN ADDRESS 


; RETURN 
MOV (SP)+,ERRVEC ;RESTORE THE ERROR VECTOR 2 


FIND OUT IF ACT11, ’XXDP’ CHAIN OR DUMP MODE 


étarTi: 


1$: 


es: 


3$: 


MOV #DDPCH, RO 
MOV #-12,R1 ;CLEAR OUT DRIVE TABLE AREA 
CLR (RO)+ 
INC Ri 

8 re] 41 ; LOADED FROM AN RKOS ? 


BNE ST 
MOV 40,DDPCH 
CMPB #10,0DPCH 


ian DEV cE INDICATOR AND DRIVE ADDRESS OF 
;LOADING RKOS 
; VALID paLve NUMBER IN BYTE 40 ” 


BHI 

CLRB  ODPCH ust Be BE BRIVE ZERO WHICH LOADED 
TST 42 : CHAIN "ROE OR ACT11 AUTO ACCEPT ? 
BEQ ug ‘BR IF NEITHER 

TST DOPCH ; RUNNING FROM AN RKOS ? 

IMP 573 ‘FIND OUT NUMBER OF DRIVES 

TYPE 65S :;TYPE ASCIZ STRING 

BR bus :GET OVER THE ASCIZ 


Sade PTO PEN BFL GHEE TEST 


© b+ bb b= Ob b= Bb BP b= Bb b= BP bb 0 bP b= 0 = Bb 0 2 b= b= 0 = 0 bb Pr 2b bh bb br be bb 0 bb be pe Bb bs bp be 


LURE REP RARER Ae daa dol elude epee Rea ct dna] pt 


eeeeees 
Tu 
seaeReee 


ae 
OUR 


001410 
004262 
177777 
003Sie2 
001410 
003554 


003644 


177400 
001414 
177770 
000060 


Hae I Hote oe Mcae cuitcn ReeISTER’ > 


-65$: .ASCIZ <15><12>/NOT TESTING DRIVE / 


64s: 
CLR -(SP) ;CLEAR WORD ON STACK 
nove DOPCH, (SP) iGET ORIVE ADDRESS 
pia 1 ONLY THR peor te 
‘BYTE 0 “SUPRESS LEADING ZEROS 
JMP S13 GET NUMBER OF DRIVES 
4§ INC -1 “FIRST TIME HROUGH HERE ? 
BNE ST2 ‘BR 
TYPE 67S 53 TYPE AscIZ STRING 
BR 6$ T OVER THE ASCIZ 
jie? "ASCIZ <15><12)/TO TEST DRIVE 
CLR -(SP) ;CLEAR WORD ON THE STACK 
MOVB _—DDPCH, (SP) GET DRIVE ADDRESS 
TYPOS i TYPE THE DRIVE ADDRESS 
.BYTE 1 “ONLY 1 CHARACTER 
BYTE 0 + OUPRESS LEADING ZEROS 
YPE 69S 33 TYPE ASCIZ STRING 
BR BS T OVER THE ASCIZ 
jib: -ASCIZ / HALT PROGRAM, REMOVE RKDP PACK AND REPLACE 1T/<15><12> 
TYPE 71S 3; TYPE ASCIZ STRING 


BR O$ ;GET OVER THE ASCIZ 
pigs: -ASCIZ /WITH A WORK pack’ CLEAR LOCATION 40, AND RESTART PROGRAM/ 


;FIND OUT FROM USER WHICH calves eat ADDRESSES) ARE 7 BE 
: TESTED (DRIVES TO BE TESTED 7). IN REPLY THE USER SHOULD T 


YPE IN THE 
: CAL ADDRESSES SEPERATED By’ COMMAS . THUS IF 2 DRIVES 0,1 ARE PRESENT: 
"0. 1<CR>’ A CAR. RET. SHOULD BE TYPED TO TERMINATE THE LIST. 

g hov #ORIVS,R 

MOV -11,Ri 
13$ CLR (RO)+ 

INC Ri 

BNE 13$ 

TYPE 65S ;s TYPE ASCIZ STRING 

BR 4§ “GET OVER THE ASCIZ 
i485: "ASCIZ <15><12>/DRIVES th BE TESTED ?/<15><12> 

ROLIN 

MOV (SP)+,RO ;GET STARTING ADRES OF ASCII STRING 

MOV #-10,R1 :SET UP COUNT 
1$ move (RO)+, Re :GET ASCII CHARACTER 

BIC #177400, R2 *MASK UNWANTED BITS 

MOV #ORIVO, R3 

MOV #-10,R4 

MOV #60,R5 
2s: CMP RS, R2 ;WAS THE TYPED IN CHARACTER 

'@ NUMBER BETWEEN 0-7 

BEG 3S ‘YES, BR 

INC RS !NO. INCREMENT 

TST (R3)+ : INCREMENT POINTER TO DRV FLAG 

INC RY !CHARACTER THAT WAS INPUT 
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DZRKKE.P11  07-JUL-77 09:37 GET VALUE FOR SOFTWARE SWITCH REGISTER 

1388 004060 001372 BNE 2s hia OP en IF F ANY ofTHER 
tage TST R DRIVE A OBE That Rar ; 

{age hata Ber aes Beg Re tgs) EXIT. nO'8 BGs INDICATED. 
1987 OO4065 4g: 

1988 104401 004074 TYPE 67S +i re ASCIZ STRING 

1989 004072 O00402 BR b6$ GET OVER THE ASCIZ 

1990 --67§ ASCIZ /77/ 

1991 004100 66s: 

1992 004100 000716 BR sT2 AGAIN ASK QUESTION 
1993 004102 005713 38: TST aR3 ;SEE IF itt’ READY SEL’ LECTED 

1994 004104 001370 BNE 4g ‘ERROR IF SE 

1995 004108 l INC aR3 fe et EO Ac FOR T HE DRIVE 
1996 ll 001412 INC ORIVS Nc NEN ongart NOvoF OF DRIVES PRESENT 
tea posite Ree 77400 one: Bree eatin R2 t OAARNETER ONLY 

1999 poate 022702 00108 CMF 8’F,Re 71S IT F? 

2000 004126 001026 BNE ?NO, GO ON 

2001 004130 052713 100000 BIS aGIT1S aR3 :SEt BIT 15 TO SHOW RKOSF 
2002 004134 0S o00001 BIT 0,R5 EVEN DRIVE? 

2003 OO414O 001497 BEQ ‘EVEN DRIVE SO BRANCH 

2004 o0414e 63 177776 TST -2(R3) ;CHECK EVEN DRIVE 

2005 OO4146 001347 BNE 4§ “EVEN ALL READY SELECTED 
2006 OO41SO 012763 100001 177776 MON #G1T1S!BITO, -2(R3) “SELECT EVEN DRIVE 
2007 004156 O00406 BR 10$ : CONTINUE 

2008 O04160 005763 oD0002 9S: TST 2(R3) s CHECK ODO IVE 

2009 004164 001340 BNE 4§ F SELECTED BEFORE 
2010 004165 Ole763 190001 oooo02 Ae HOY aBIT1S!BITO, 20m} SELECT 000 DRIVE 
Bae 004200 eae TSTB —s-« (RO) + POI aut a 1 EHER 

2013 OO4e02 000744 BR 11$ 

2014 O04 ooo0s4 Q$:- CMP 454, R2 ito ot A OF SA? 

2015 OO4210 001403 BEQ 5 YES, GO PROCESS NXT WORD 
2016 OO4ele 702 TST he a :NO, IS IT A TERMINATOR? 
2017 OO4214 001324 y : IF NOT, THING WRONG 
2018 GO ASK’ QUESTION AGAIN 

2019 OO4216 OO0404 BR 6S “EXIT wi A TERMINATOR 

2020 O04220 105720 SS: TSTB = (RO) + INCREMENT PTR TO NXT BYTE 
So> go¥222 005201 INC RI} A ett D BE NO MORE THAN 
2023 O042e4 001277 BNE 1$ rs Ri vee He NEE SE 

2024 000717 BR 4§ ‘THAN 8 DIFF FERENT NOS. iYPeD IN, ERROR! 
2025 GO AGAIN TION 
Bead 004230 005037 001440 6S: CLR SIZYET ;NO SIZING NEEDE 

2028 OO4234 032777 O02000 174676 BIT #SW10, 2SWR TESTING ON SIMULATOR? 

2029 Ooveve 001003 BNE zs YES, BRANCH 

2030 244 005037 001344 CLR SIMUL NO, CLR FLAG 

2031 OO4eS9 o00SDe2 BR Sty 

soa 004252 012737 000001 O01344 7S: MOV 81, SIMUL :SET FLAG TO INDICATE SIMULATOR 
2034 OO4260 000476 BR ST4 

2035 

2036 

2037 


BO4 
DEKE PL 'opstee? Gorse ° GE Yai FOR SorfuARE ShiTcH REGISTER 


Bie 127 77777 001440 iveK ne _— aia: rat ;CHECK FOR RKOSF LATER 
ona tsa bie73" haqaas 000004 HOV 58" aif + CHECK UP ADRES FOR TIME-OUT VECTOR 
eon 004276 175024 TST aRKOS REF ERENCE RKDS 
> 004302 pees eS 175032 TST aRKDA *REFERENCE RKDA 
2043 004306 012737 004534 000004 MOV SBADTMO, a84 
004314 104401 TYPE 
004316 O01216 MSG1 
204% O04 012700 177770 MOV #-10,R0 s INITIALIZE COUNT FOR THE 8 DRIVES 
2047 004324 005037 001412 CLR DRIVS ‘INITIALIZE # OF DRIVES PRESENT TO C 
2048 004330 005001 CLR Rl ‘INITIALIZE ADDRESS TO DRIVE 0 
2049 004332 005004 CLR RY 
2050 004334 012702 001414 MOV #ORIVO, Re 
2051 OO434O 010177 174774 1S: MOV R1, JRKDA ADDRESS THE DRIVE 
2052 004344 020177 174770 CMP R1; JRKDA CHECK, WAS IT ADDRESSED? 
cnet Bosses ee 004356 te 33s R3 sYES 
2055 004356 004737 021022 2s: JSR PC, TYERM ;WHILE CHECKING NUMBER OF DRIVE 
2056 : UNDER NON-MANUAL 
2057 *RKDA HAD TO BE ADRESED BUT 
2058 IT WAS FOUND THAT THE DRIVE N 
2059 ‘THAT WAS JRITTEN COULD NOT BE READ BACK 
e060 : CORRECTL 
2062 O04362 00u413 BR 4$ ieee 
2063 004364 032777 000200 174734 3S: BIT #200, IRKDS : CHECK IF ORY’ BIT IS SET, IF SET DRIVE IS 
2065 004372 001407 BEQ 4u§ : 
2065 004374 104401 TYPE - 
2057 004376 001213 SCRLF 
2068 OO4400 005237 O01412 INC DRIVS ;IF PRESENT, INCREMENT 8 OF DRIVES 
2069 OO44O4 005212 INC (R2) ?SET UP FLAG INDICATING THIS DRIVE PRESENT 
2070 OOWHO5 O10446 V R4.-(SP) 
2071 OO4410 104402 TYPOC 
2072 OOwWle 7, 4§: TST (R2)+ :SHIFT POINTER TO NXT DRIVE INDICATOR 
2073 OO4414 062701 o20000 ADD #20000, R1 :SET UP ADDRESS FOR THE NEXT DRIVE 
2074 OO4420 005204 INC RY !HAVE U CHECKED FOR ALL 8 DRIVES 
2075 OO4422 005200 INC RO 
2076 OO4424 001345 BNE 1$ 
2077 OOM! 005737 O014i2 TST ORIVS 
2078 OO4432 001011 ST4 
2079 OC4434 104401 TYPE 
2080 OOW36 001236 
2081 OO44#4O OO040E STY GO CHECK THE DRIVE INDEPENDENT 
2082 CONTROLLER LOGIC 
2083 OO4442 011603 S$: MOV (SP) .R3 GET PC WHERE TIMEOUT OCCURED 
2084 OO44H44 22626 CMP (SP)4+. (SP)+ "RESTORE STACK 
2085S OO444E 062703 177776 ADD #-2,R 
2086 OO44S2 004737 O21022 JSR Pc. TYERM ;GO_ TYPE ERROR MESSAGE 
2087 ‘WHILE CHECKING FOR THE NUMBER OF 
2088 :DRIVES IN NON-MANUAL MODE: - 
2089 "RKDS AND RKDA HAD TO BE REFERENCED, TIMEOUT 
2090 :OCCURED ON REF ERENCING.PC IN THE ERROR 
coal !MESSAGE INDICATES WHERE THE TIMEOUT OCCUREL 


CO4 
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2034 
2095 
2096 OO044S6 005037 001434 ST4: CLR TS6FLG 
pee COME Te 001412 TST DRIVS 
1 BNE 1$ 
20393 eave 004737 pel? > ie PC WATIME 
Boveoo Brera? Boras 001354 1S: MOV FO 0, DRVPTR 
004506 005037 001352 CLR DRVDON ; INITIALIZE THE NO. OF DRIVES 
; THAT HAVE BEEN CHECKED 
004512 005037 001350 CLR DRIVAD INITIO GE Oe ADDRESS TO 
004516 012737 004534 O00004 MOV #BADTMO, d#4 SET TINE OUT VECTOR FOR UNEXPECTED 
0o4Se4 012777 OO4600 174650 MOV SBADINT,IRKVEC ;SET UP RK11_ INTERRUPT VECTOR FOR 
;UNEXPECTED INTERRUPTS FROM RK11 
004S32 OO046S BR TSTl ;GO TO TEST 1 


; THIS ROUTINE HANDLES UNEXPECTED TIME OUTS 


ae he ee ee ee be ae bw be be he be be Bo he ae be he be Oe be ho ee 
Se URREOR Baer con ODS UE REOMeS 


2 

2 

2 

2 

2 

3 

2 

2 

2 

FA 

2 

2 

2 

2 

2 

: 

5 004S34 011600 BADTMO: MOV (SP),RO ;SAVE PC WHERE TIME OUT OCCURED 
2 004536 005740 TST -(R 

2 004540 022626 CMP (SP)+, (SP)+ ;RESTORE STACK POINTER 

2 oo4s542 104401 oo4sso TYPE 6S$ TYPE ASCIZ STRING 

2 004546 000407 BR 4§ *:GET OVER THE ASCIZ 

2 --65§: .ASCIZ <15><12>/TIMOUT, Pt=/ 

2 OO4S65 64s: 

2 004566 O10046 MOV RO, -(SP) ;SET UP FOR TYPING OUT PC 
2 004570 104402 TYPOC :GO TYPE OUT OCTAL PC 

2 004572 00000 HALT 

g 004574 000137 002636 IMP aaSTART 

ae 

2131 THIS ROUTINE HANDLES UNEXPECTED INTERRUPTS FROM RK11 
2132 Si 9 AND 1 LOOPING RROR 

2133 AND LOOPING ON TEST IN WHICH TIMEOUT 

g134 OCCURRED, ARE PROVIDED. 

2136 OO4600 011600 BADINT: MOV (SP) RO ;SAVE PC WHERE INTERRUPT OCCURED 
2137 OO4602 005740 TST -(R 

2138 OO4604 032777 O20000 i74226 BIT #20000, JSWR s INHIBIT ERROR TYPEQUT? 
2139 OO%612 001014 BNE 1$ YES, DON’T TYPE OUT 
2140 004614 104401 

2141 004616 001213 SCRLF 

2142 O04620 104401 TYPE 
e143 004622 026000 EM43 : TYPE ; UNEXPEXTED RK11 INTERRUPT" 
2145 OO%624 104401 004632 T 65S :; TYPE ASCIZ STRING 
2146 004630 000403 BR b4§ GET OVER THE ASCIZ 
2147 --65$: .ASCIZ /,PC=/ 

2148 OO464O 4s: 

2149 OO4E4O O1004e MOV RO, -(SP) :SET UP FOR TYPING OUT PC 
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150 oo4e42e 104402 TYPOC :G0_T TAL PC WHERE BAD 

sie i A TERUPT. OCCURED 

2152 OO4644 032777 OO1000 174266 1S: BIT #1000, aSWR LOOP ON ERROR? 

gtay po Bee (SP)+, (SP)+ ves CTTION STACK 

sted ib 174224 INP aSLPADR :G0 tone STARTING ADDRESS OF 

2156 ‘THE TEST THAT GAVE UNEXPECTED INTERRUPT 
2157 032777 O40000 174250 2S: BIT #40000, JSWR LOOP _ON TEST? 

2158 004670 001401 BEQ 3$ : NO 

2159 O04%672 oo000e2 RTI ‘YES, LOOP. GO BACK WHER U INTERRUPTED FROM. 
2160 004674 9000000 3 HALT ‘UNEXPECTED INTERRUPT OCCURED AS 

2161 ‘INDICATED IN THE TYPE OUT.U CAN LOOP 

2162 :0N E TEST,OR INHIBIT TYPEOUT BY 

2163 ‘SETTING APPROPRIATE SWITCHES. 

2164 OO467E 000137 002636 IMP aaSTART GO BACK TO THE START OF THE 

2165 : . THUS PRESSING CONTINUE 

2166 AFTER THE ABOVE HALT WILL 

2167 RESTART THE PRO 

2168 

2169 

2170 

2171 ;RESTART AFTER POWER FAIL 

ei72 :THE PROGRAM WOULD RESTART HERE IF POWER CAME BACK AFTER A FALIURE. 

iz 004702 004727 021736 PFSTRT: JSR PC, WATIME KILL TIME 

5135 

2178 23 SELLELEALALESEREEAESE REE ERE EE RELEASES REESE EER SRALE RLS LER SER EES 

21793 :kTEST C THAT THE DRIVES THAT ARE NOT SPECIFIED ARE NOT FOUND TO BE PRESENT 
2180 ;#THIS TEST CHECKS THAT THE DRIVES THAT ARE NOT SPECIFIED 

2181 ?#CIN RESPONSE TO “DRIVS TO BE TSTD?") ARE NOT FOUND TO BE PRESENT. 
2182 S#EVERY DRIVE FROM O TO 7 IS ADDRESSED. IF A PARTICULAR DRIVE 
2183 tHGIVES "DRY? (IN RKDS), IT IS CHECKED THAT THIS DRIVE 

2184 '#WAS SPECIFIED BY THE USER, IF IT WAS NOT AN ERROR IS 

2185 ‘#REPORTED, GIVING THE DRIVE NUMBER. IT IS LIKELY THAT T R 
2186 !4MAY HAVE FORGOTTEN TO PUT THE ORIVE (THAT IS NOT SPECIFIED) ON 
2187 ?#’LOAD’. IF THIS IS THE CASE THEN PUT THIS DRIVE ON “LOAD’. 

2188 t#IF THIS IS NOT THE CASE, THERE IS A GENUINE ERROR. (TWO DIFFERENT 
2189 : RODRESSES MAY BE RESULTING IN THE SELECTION OF THE SAME 
2191 ee SEEKERS EEE EERE EEE SEER EERE ERE SESE RE EEE EL ER EEE LESSEE EERE 

g13¢ 004706 o00004 t$T1: SCOPE 

2194 OO4710 012700 001414 MOY sDRIVO, RO s INITIALIZE POINTER 
2195 004714 O0SO001 CLR Ri ‘INITIALIZE DRIVE ADRES O 

219% OO4716 005002 CLR Re INITIALIZE DRIVE # 0 

2197 004720 005737 oO1410 1S: TST DDPCH ‘LOADED FROM AN RKOS ” 

2198 004724 001403 BEQ 2s :B IF NOT 

2199 004726 120237 001410 CMPB  —s- Re, DDPCH ‘LOADED FROM THIS DRIVE ” 

2200 O04732 001435 BEQ u§ :BR IF YES 

2201 004734 010177 174400 2S: MOV R1, JRKDA ADRES THE DRIVE 

2202 OO4740 105777 174362 TSTB = IRKDS ; DRIVE READY? 

2203 004744 100005 BPL 3$ "NO, THIS DRIVE NOT PRESENT 

2204 YES, THIS DRIVE SELECTED 

2205 OO474E OOS710 TST RO ‘WAS THIS DRIVE SPECIFIED BY 
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i] R? 

5goe 004750 001026 BNE 43 YE 

2208 tae “Es was NOT SPECI FIED 
aati Yt ei ll Be hepbar “Exon 

2211 OON7S2 010237 001162 MOV R2, $REGO oR 

gele 004756 104116 ERROR 116 s THIS OOR TE. att WAS NOT SPECIFIED BY 

2214 :*DRY’ CK THAT THIS DRIVE 8 IF 

2215 ‘PHYSICALLY PRESENT IS LOAD IF 
ss ima BE CETTINGSELECteD BY {mo BiFFEnxr 
2218 LOGI Fe Ropar eseee 

2219 OO4760 005710 38: TST aRO ;CHECK THAT THIS DRIVE WAS NOT INDICATED 
2220 OO4762 001421 BEQ 4$ :IF J? WAS, & IT IS NOT FOUND TO BE 
2221 ‘PRESENT (ORY CLEAR), REPORT 

e222 004764 004737 020770 ISR PC, GTYRG :GET RKCS R Be DA 

2223 004770 104010 ERROR 10 ;DRIVE #8 tn RKDA) WAS INDICATED BY 
2224 ‘THE USER, BUT WAS NOT FOUND TO BE PRESENT 
2225 * CHECK ” THE ROTARY DRIVE SELECTION 
2226 :SWITCH ON THE MODULE IS SET TO THE RIGHT 
gee? ‘DRIVE 8. 

2229 004772 ogsoIC CLR aRO ; THIS DRIVE IS NOT FOUND TO BE PRESENT 
2230 ‘HENCE DROP IT FROM THE SELECTION TABLE. 
2231 004774 010003 MOV RO,R3 ‘DRIVE ADDR 

223e 004776 162703 OO01414 SUB #DRIVO,R3 *MINUS OFFSET FOR TABLE 

2233 o0S002 042703 000003 BIC #3 -EVEN DRIVE OF PAIR 

2234 OOSO06 062703 001414 ADD aDRIV :POINT TO EVEN OF PAIR IF RKOS F 

2235 005012 042723 100000 BIC atin tags *NOT SPECIFIED AS F MODEL 

2236 005016 042713 100000 BIC #100000; ( : SAME 

2237 O0S022 005337 O014le DEC DRIVS *DECREMENT DRIVE COUNT 

2238 005026 4: INC *INCRMNT DRIVE 8 

2239 005030 005720 TST (RO)+ : INCRMNT POINTER 

2240 005032 062701 oeon00 ADD #20000, R1 : INCRMNT ADRES TO NXT DRIVE 

geal 005036 001330 BNE 1$ ;LUP BAK IF NOT DONE 

2243 

oo44 ; THIS PART OF THE PROGRAM IS GOING TO BE REPEATED FOR 

ges ; EACH DRIVE PRESENT 

2247  *DRIVAD’ CONTAINS IN BITS 15,14,13 THE ADDRESS OF THE 

cose ‘DRIVE BEING CURRENTLY CHECKED. 

2250 ooso40 NUDRV: ° 

S55 

22523 peep DTT EIND OUT NEXT DIVE TO fe CIECKED 

2254 Te2 FIND QUT NE NEXT IVE TO 

2255 eT s CODE FINDS OUT DRIVE THAT IS PRESENT AND THEN SETS uP = 
eeS& THE ADDDRESS I SRIvAg™ ( ee 13, 14,15). rus | QUGHOUT THE FOLLOWING TESTS 
2257 : THE DRIVE PsteD IS THE DRIVE WHOOSE ADDRESS IS" IN *DRIVAD’. 

eese «EGE EE EE EEE E EERE SESE EEE EEEEE EERE EEE EE REREREREAEER EERE EES 

2e59 05040 o00004 téT2: SCOPE 

2260 OOS042 012737 O00001 001206 MOV 81, STIMES 1 ITERATION 


226i O0S050 012737 O00002 001102 MOV #2, $TSTNM ‘Arey POINTER TO THIS TEST 
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DERKKE.P11  O7-JUL-77 09:37 T2 FIND OUT NEXT DRIVE TO BE CHECKED 
; c THIS (2) IN CASE THE 
oes GND. CHANGE ANCES 
2264 O00SOS6 005037 001112 CLR SERTTL "CLEAR TOTAL ERROR COUNT 
2265 o00S062 005737 001412 1ST DRIVS R THERE ANY DRIVES PRESENT? 
oops esthai 13? O20646 4$: IMP SEOP : NO 0 THE END 
gee 005074 013701 001354 MOV DRVPTR,R1 GET THAT POINTER TO THE NEXT 
2270 005100 032721 000001 2s: BIT #BIT0, (R1)+ ‘IS THIS DRIVE PRESENT? 
2271 O0S104 001005 BNE 1 . 
005106 062737 O20000 001350 6S: ADD #20000,DRIVAD FORM NXT DRIVE ADRES 
2273 005114 001371 BNE 2s 
2274 005116 0007 BR 4$ 
2275 005120 005737 001410 1$: TST DDPCH PROGRAM LOADED FROM AN RKOS ” 
2276 005124 001413 BEQ 3$ NO. BRANCH 
2277 005126 013746 001350 MOV DRIVAD, -(SP) ‘Put TEST DRIVE ADDRESS ON THE STACK 
2278 005132 000316 Swag. 2Stsé SPP) ‘SETUP TO RIGHT JUSTIFY THE ADDRESS 
2279 005134 006216 ASR (SP) ‘RIGHT JUSTIFY THE ADDRESS 
2280 005136 006216 ASR (SP) RIGHT JUSTIFY THE ADDRESS 
2281 005140 006216 ASR (SP) ‘RIGHT JUSTIFY THE ADDRESS 
Peg2 O0S142 O06e16 ASR (SP) RIGHT JUSTIFY THE ADDRESS 
2283 OO0S144 006216 ASR (SP) ‘RIGHT JUSTIFY THE ADDRESS 
2284 OOS146 122637 001410 CMPB = (SP) +, DDPCH : PROGRAM LOADED FROM THIS ORIVE ? 
2295 O0051S2 001755 BEQ 6S ‘BR IF YES, DON’T TEST THE 
2286 005154 010137 001354 38: MOV R1,DRVPTR ‘STORE POINTER TO THE NEXT 
2287 ‘DRIVE FLAG 
2288 O0S160 104401 001272 TYPE MSGY 
2289 O0S164 013746 350 MOV ORIVAD, - (Rb) -GET THE DRIVE ADDRESS 
2290 005170 004737 021174 ISR PC SHF TRT !GO SHIFT IT TO THE RIGHT 
2291 005174 005037 001404 CLR FFL 
2292 005200 011600 MOV (R6),RO ; DRIVE NUMBER 
2293 O0Se02 104403 TYPOS GO TYPE THE OCTAL # FOR THE 
2294 ‘DRIVE THAT IS BEING CHECKED 
2295 005204 001 000 .BYTE 1,0 
229% 005206 006300 ASL RO : INDEX TO TABLE 
2297 005210 005760 001414 TST DRIVO(RO) >SEE IF F 
2298 005214 100006 BPL $s :NO 
2299 O0Sel6 104401 905224 TYPE 65$ + ee ASCIZ STRING 
2300 005222 OO00401 BR b4§ GET OVER THE ASCIZ 
2301 --65$: .ASCIZ /F/ 
2302 005226 64s: 
2383 005226 005237 001404 INC FFLAG ;SET F FLAG 
2204 C0S2e32 104401 cs: TYPE 
2305 005234 001213 SCRLF -TYPE C 
2306 seeeeestiuvaeaepeneverevenevenshereneeebs decaeneagnereseneataey 
2307 t RTEST T3 CHECK THAT DRIVE IS SUPPLIED WITH POWER-DPL BIT 
2308 To hdd 2" apabeaadieddiibe bbe dbbbbbbbbtebbbbbbdebbtitibiti 
309 o0S236 900004 +73; COPE 
005240 104413 ar RESET ;G0, DO_ CONTROL RESET 


THIS ISA CALL FOR THE ’CNTRL- 
RESET" ROUTINE. A CONTROL RESET IS 
; ISSUED BND | AFTER A CERTAIN TIME 

T Y’ DOES NOT SET 
AN ERROR ts REPORTED. NOTE THAT 
: THE N ERR 


PC_IN ER MESSAGE IS THE 
:PC WHERE *CNT.RESET’ IS LOCATED. 


rorurororuforurur 
tI GIGIGIW WIG) 
ob = 
NMU£coTMr-O 


MD-11-DZRKK-E, 
DERKKE Pit 


o0Se4e 


00S2S6 


bosses 


005250 
005352 


RK11 BA 


07-JUL-7 


013700 
777 
710 

001003 

011037 

104004 


012777 


104016 


o00c04 
104413 


13777 

17700 
032700 
001403 
004737 
1O4O06 
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a) 


07-JUL-77 
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PAGE 4S 
CHECK THAT DRIVE IS SUPPLIED WITH POWER-DPL BIT 


;THIS IS A VERY BASIC ERR& IF IT 
OCCURS GO BACK TO TEST 10 


IS CLEAR 


vine 174064 NOY ART SAD aRKDA RESS THE DRIVE R TEST 
Hoy OR creck TF ay Fy ah oF ERs fe ser? 
BNE 1$ il 
001162 MOV JRO, SREGO ‘dey tise 
ERROR 4 :RKDS ERROR! RKD RKDS IF ADDRESSED 
s CORRECTLY SHOU BE NON-ZERO 
o0001S 174036 1S: MOV #15, aRKCS A DRV RULED Be IF DRVE 
op us ‘POWER IS LO, OPL WILL SET 
010000 2s: BIT #10000, aRC :1S "DRL: BIT SET? 
RNE zt Det! Boats one Fine T0 
BNE 2 -SEE IF DPL_ WOULD SET 
BR 4§-2 0K, DPL NO 
020776 3S: JSR PC, GT3RG :G0’ GET RKCS, ER 
ERROR :DPL BIT OF RKDS ts Scr. CHECK DRIVE POWER 
CLR Rl 
000:¢0 4g: BIT #100, aR0 sDID R/W/S RDY BIT SET? 
BNE TST4 : xI 1 
000011 DELAY li '+IME’ DE 
INc Ri WAIT PEE ARMS RDY 
173762 001162 HOV RKDS , $REGO Ra wpa pe 
a [ poe e Rese Hes DONE 
A FOR ¢ 
Ee OR Fea. ING a Bboy IDED 
OR CHECKING DRIVE RESE 
jPeRESEOGOEHEEREDESEREDSEE EDS TERM EOE Te CLEAR HEN’ 1S SET 
tATEST 4 CHECK THAT "DRIVE UNSAFE’ IS *HDEN’ . “WPS? 
ade 4°? papa sance ta debbie hs I a SR I a SY 
CNT. RESET DO CONTROL RESET 
eset IS A CALL FOR THE ‘CNTRL- 
sRESET ~M iin “cNTRat oh = 
i EBSUED *CNTRL BR , SbES T int 
!AN ERROR IS REPORTED. NOTE THAT 
; THE my RROR mepee T 
:PC "CNT. IS LOCATED 
‘THIS IS A VERY BASIC ERR 
a “OCCURS GO BACK TO TEST 10 
901360 17375é Mov DRIVAD, “KDR  ;SET DRIVE. 
173740 Mov = RKOS, Ru ; GET _RKOS 
oo2000 gr 2000, RC :1S *pru'! BIT OF RKDS SET” 
020776 Teh BE GT3RG $60, GET RKCS, ER, DS : 
ERROR :*DRU* BIT OF RKDS IS SET, CHECK 
‘DRIV BY PUTTING RUN-LOAD SW TO LOAD 


med det OgmK-€, oft 4, 26515 t Gale TEST 2 


004000 


173712 O0ilbe 


000040 
020770 


173700 


005436 S00004 
COS44O 104413 


001350 
ti Aes 173€Se 


020770 


173670 


104010 


2410 


001350 
000400 


173644 
173622 


i ah ah at a at a at ot at 
Siw Vin ew 


e4el 


173610 O0ilte 


4itt 


HOY 
RACY SR haat “DRIVE UNGAEE® IS CLEAR, “HOEN’ IS SET, ‘WPS’ IS CLEAR 


THEN BACK TO_RUN 
18: BIT g4000,RO cme N’ git SET? 
eg Ferm: i RKOS’ BIT IS NOT SET 
2$: BIT #40, ARKDS :15_:WPS: CLEAR” 
FER Be arupc Cid ines. a 
ERROR 114 RITE protect starus- BIT OF 
OE ae RueeR a teeette Ore 
'ORIVE IS WRITE ENABLED, tear 1S NOT, 


WRITE ENABLE I 


TTT rere ttt ttt ttt t htt. it +b +t obit -eleleieiiaielote 


tATEST S CHECK THAT "DRIVE READY’ IS SET IN RKDS 
Lee ee EEA AAA EESEERREL ELSE SERRE ELLER EERE ERASE EERE EEE EE LEE 


CNT. RESET DO CONTROL RESET 
‘tats IS A CALL FOR THE ’CNTRL- 
RESET’ ao are A CONTROL RESET IS 
: ISSUED wo 4 ER A CERTAIN TIME 
if Te EREOR I ORT D,AOTE That 
i THE PC I PC_IN a! IE THE 
PORE CET? * TRATED. 
ns 1s, IS A VERY BASIC ERR 8 IF IT 
URS | Go BACK TO TEST 10 
MOV DRIVAD, IRKDA PADORS T VE 
TSTB = ARKDS :1S Bry SET? 
BMI TST6 : OK 
JSR PC, GTYRG tho BET RKCS, ER, DS, DA 
ERROR 10 :*ORY’ NOT SET 
BSH H HEHEHE HEHEHE HEHEHE HUH UE HE HEHEHE HEU HEE EEE a EER Ea EE EEE 
TEST 6 CHECK THAT ’SOK’ BIT CAN SET 


3 THIS TEST Ce THAT WITHIN A gta TIME 
*SOK’ BIT SET, IF IT DOES NOT AN ERROR IS REPORTED 
goveggneniennetenetnnenssnnesneueeneserner 


+éT¢ CO 

MOV ORIVAD,ORKDA = ; ADDRS_THE DRIVE 

CLR Ri j INITIALIZE COUNT FOR TIMING WAIT LOOP 
1S: BIT #400, JRKDS IS SOK SET? 

BNE TST7 5 EXIT 

INC RI 0, WAIT 

BNE 1$ ;MALTED LONG? 

MOV JRKDS , SREGO ‘GET 

ERROR 11 irre LONG BUT °SEC OK’ BIT DID NOT 


- LEAERERAAEEAERAEEA EERE EER EERE E RASS ER RE LEAEEAR EAE EERE LSE ERETTS 
SATEST ? CHECK THAT *SECTOR COUNTER’ CAN CCUNT FROM 0-13 


POE LL eOgRKK-E, ot BAR IEG Lggic TEST 2 pacvat ie 


oosS2e 
oosse4 


ooo004 
104413 


012704 
012703 


005037 


Orioee 


032702 


001350 173604 
001326 
001356 


177764 
000001 


001360 
001356 
001360 
000400 


177760 


000400 


tér 


1$: 


es: 


33: 
4§: 


4 -JUL-77 09:38 PAGE 4 
T "SECTOR COUNTER’ CAN COUNT FROM 0-13 


a 


HECK THA 
;* TH “gs TEST CHECKS THAT THE SECTOR COUNTER CAN COUNT FROM 

?% 1) FIRST, FOR INITIAL PURPOSES THERE IS A TIMED LOOP 

i DURING Ne WATER "sector COUNTER SHOULD SHOULD COUNT DOWN T0 0. IF THIS 

iS 2} AFTER A COUN TP REACHED, THE PROGRAM WAITS 

;# FORA CERTAIN TIME, DURING WHICH’ THE SEC COUNTER rc 

st Tae PEERS all etter TS REPORTED. sets 

ty Ft TT INCRERENTED CORREETLY. IF. 17 DID NOT AN ERROR 1S “REPORTED 
t# 4) iu T INCREMENTED CORRECTLY. T eB. AGAIN eerie Ih 

;# LOOP TILL THE COUNTER CHANGES. 2,3,4 ARE REPEATED 


TER COUNTS UP TO 13)° 


TILL THE COUN 
rg Se enn 


CNT. RESET ;G0, DO CONTROL RE 
i THts IS A CALL F THE *CNTRL- 
RESET’ ROUTINE. A CONTROL RESET IS 


MESSAGE IS THE 
WHE T.RESET’ IS LOCATED. 
‘THIS IS a VERY BASIC ERR & IF n 
OCCURS GO BACK TO TEST 10 
MOV DRIVAD, aRKDA 


MOV RKDS, RO TIALIZE 


; INI 
CLR INDX1 ;?COUNT? = TO TIME. "ERROR 35’ 
CLR RS ‘INITIALIZE *COUNT’ - TO TIME 
"ERROR 36° (WAIT LOOP) 
MOV #-14,R4 ‘INITIALIZE "COUNT’ - FOR THE 12 SECTORS. 
MOV #1,R3 *R3 CONTAINS THE ’NEXT’ COUNT OF SEC-CNTR 
*R1 CONTAINS THE PREVIOUS’ COUNT OF SEC-CNTR 
‘R2 CONTAINS THE ’PRE PRESENT" COUNT OF SEC-CNTR 
CLR INDX2 : INITIALIZE *COUNT’ TIME 
; (WAIT LOOP) *ERROR 
INC INDX1 “KEEP TIMING FOR ERR OR 35° 
BEG 6$ ‘BRANCH & REPORT ERROR If WAITED LONG? 
INC INDX2 *KEEP TIMING FOR "ERROR 
BEG 7§ ‘BRANCH & REPORT ERROR IF AWAITED LONG? 
MOV aRO,R GET RK 
BIT au00 RL ie » BOR? SET? 
BEQ NO WAIT FOR IT 0 SET 
CMP RO, R1 i SURE THAT 2 TO ORBECUTIVE 
1 INGS OF Merc -CNTR ARE SAME 


NON-SEC CNTR BITS 


BNE 
BIC #177760,R1 "eet 
BNE 1§ 1st SECTO 2 IF NOT LOOP BACK & 


BE ro ‘Ge Sea cp 
8 Q es. ae i eS ‘report ERROR” fr ofa TED LONG 
BIT #400, Re IS SOK SET? , 


ee ee eee | — me ee ene + -—_ = 


JO4 
Sabb OBRYK-E. BK} BOSTEQLQGIC TEST 2 YRCYIL SRCARNE) 077d Toe cBATER’ CAN COUNT FROM 0-13 


oe 
ee) Bpeeth rater ay dha, Re iNBee MBA? Of 78 CONSECUTIVE 
ye O01 BNE 4§ "READINGS OF SEC-CNTR ARE SAME 
ee" 8 ee Peale 
Q F : T 
2492 005654 020203 CMP R2,R3 YES, DID IT INCREMENT CORRECTLY? 
2493 005656 001023 BNE 9$ :NO - REPORT ERROR 
Side 005660 005203 S$: INC R3 s INCREMENT NeXT COUNTY aT 
aaa pitter ai Hr Be fe ant F MING “ERROR 36’ 
sick betee ARG eS SDE RESP SEE 
70 010137 001162 6S: MOV R1, SREGO ; 
5200 74 Taaoie ERROR 12 AE ITED Lon Fong Rout SECTOR COUNTER 
2502 ‘DID NOT COUNT TO 0 
2503 005676 o00421 BR TST1O : EXIT 
2505 O0S700 017737 173422 OOllbe 7S: MOV JRKDS , SREGO ;GET_RKDS 
2506 005706 104011 ERROR 11 ‘WAITED LONG, BUT ’SOK’ BIT DID 
2507 *NOT SET 
2508 005710 ooo414 BR TSTIO : EXIT 
10 712 010237 001162 8S: MOV R2, SREGO T SEC CNTR (PRESENT COUNT) 
sete 716 iste 37 OO1164 MOV RS Sheet i gET ae xFe COUNT” 
2512 005722 104013 ERROR 13 : WAT TED LONG, BUT THE SECT 08 
2513 ‘COUNTER DID'NOT INCREMENT FROM 
2514 THE PRESENT COUNT TO THE NEXT COUNT 
e516 005724 000406 BR TST1O : EXIT 
2517 005726 010337 9011be QS: MOV R3, SREGO GET ’NEXT*COUNT’ (SEC CNTR SHOUL BE THIS? 
e518 732 010237 OO1164 MOV Re, SREG1 iGET P SENT COUNT (WHAT SEC CNTR WAS) 
1 5736 1o4014 ERROR C CN ze TNCREMEN TED WRONG, 
2520 :NOT INCREMENT FROM PRESENT COUNT 
2521 :TO NEXT COUN 
bee 005740 990747 BR S$ 
5254 ; 
2525S .s lift tt le 
2526 : TEST 16 CHECK T SC=SA CAN BE GENE 
2507 * THIS TEST CHEEKS THAT SC=SA CAN BE GENERATED FOR 
2528 VERY SECTOR 
2529 speeeesitapyssusaitiecesuserensanneeeneanaaneeensaaeseennaaae 
2530 O0S742e o00004 +éT10: SCOPE 
2531 005744 104413 ao RESET :G0, DO CONTROL RESET 
2532 sTHES | IS A CALL FOR THE *CNTRL- 
2533 *RESET’ ROUTINE. A CONTR TIS 
2534 Teer eD AND AFTER A CERTAIN TIME 
2535 ‘IF THE 'CNTRL RDY’ 
"AN ERROR IS REPORTED. NOTE THA 
2537 THE PC I ERROR NES 
;PC WHERE *CNT RESET? IS LOCATED 
= :THIS IS A VERY BASIC ERR I 


2539 _ | 
2540 SOCCURS GO BACK TO TEST 1 
2541 05742 013704 001350 Mov -DRIYAD, RS 


K 


KO 
PaAAeOBINK-E, BM}A, BASIE LOGIC TEST 2 pAgYII 3p (4Qyb) O7cHUe=72 09:38. PAGE 49 


asve 005752 013700 001326 nov RKDS, RO cust heh & oF tne 
Seg Biers BtG99 155583 is: HY Aa’ dabp iADbReg the Bee 
2S4S o0s005 a CLR RS s INIT A IZE COUNT = - FOR TIMING ERROR 
Saye 259 BaPaTR AM ORR feboe PEARS RoE GBI TED Lonc 
es4e 011001 MOV aRO,R1 -GET RKDS 
esug 032701 000020 BIT #20;R1 :I§ SC=SA SET? 
e550 C’ 001772 BEQ 3NO, WAIT FOR I 
2551 O06004 005204 4S: INC RY HE NEXT SECTOR 
2552 006006 005203 INC Rg “ARE ALL SECTORS CHECKED FOR SC=SA 
2553 006010 001364 BNE 1$ "NO. GO 8 1gHeck K NEXT 
2554 O06012 O00406 BR TST11 YES, EX 
2556 006014 110437 001162 3$: MOVB RY, SREGO ‘GET SECTOR ADDRESS 
2557 006020 010137 901164 MOV R1,$REG1 ‘GET RK 
2558 006024 104015 ERROR 15 :COULD NOT GET SC=SA FOR THIS 
2589 :* SECTOR ADDRESS’ 
gbb0 006026 000766 BR 4$ GO CHK FOR THE REST 
2562 Serious 
2563 I RTEST ll CHECK THAT *R/W/S RDY’ IS SET & ’SIN*® IS CLEAR 
2S64 + SELES EEKKEESSESERLAE ES LELSS SAKA SSRRRAERERE RRA SERA AAA SALLELEE 
2565 006030 o00004 t§T11: Sc 
2566 006032 104413 CNT.RESET DO CONTROL RESET 
2567 006034 013777 001350 173276 MOV DRIVAD, IRKDA i ROORESS THE DRIVE 
2568 006042 005001 CLR 1 
2569 006044 017700 173256 1S: MOV JRKDS, RO ;GET RKDS 

70 006050 000100 BIT #100, Ri 1S R/W/S ROY SET? 

71 4 BNE 2$ ry 

72 006056 005201 INC Rl s MATTED LONG BROUGH? 

74 Bbeoee pO hag 001162 MOV AB sreco iE NOT 
2575 104016 ERROR 16 *R/W/S RDY SHOULD BE SET 
2576 006070 032700 001000 23: BIT #1000, RO :1S gin CL CLEAR? 

78 76 Mined 020770 FER pe! Afurc ce “KES ER R,DS,DA 
679 006102 104001 ERROR 1 eR OLLD HAVE BEEN CLEAR 
g28h pa gt GOING TO CHECK 

. LEARED set IT rng BE CHECKED 

See : GLARE 
2SBE Ekahbateheh-talahalalalalal-igh-)-iyhall-t-t-hpligh-t-5-1-1-4-daladalalalalalelabalalalaielaialelaielaleiclelelelelelelelel 
2587 TEST le CHECK ’DRIVE 
2588 ;#THIS TEST CHECKS THE VERY BASIC ORIVE RESET LOGIC. 
2589 **SINCE THE HEADS ARE aT CYL YLINDER 0 (GOING INTO THIS 
2590 j#TEST) ORI VE RESET RETRACTS THEM BACK eee OND AGN INOER 0 
2591 THEY ARE PUSHED FORWARD T R 0 AGAIN. 


SMP ner tare he dt Puerta en neck et 


jeeeuehbennevbunnnnanananenensenansansasssnsaaaasaqscnsaasizens 


z 006 104 oocco4 téT12 5c OPE 
3 106 104413 NT. RESET G0, DO CONTROL RESET 
2597 THIS IS A CALL FOR THE ‘CNTRL- 


ate OBRKK-E. Pa se ore TEST 2 ieee ROR) ee, 09:38 PAGE SO 


CK 'DRIVE RESE 
AE, AA es RURAL © 


pata ttad 
B88 


- AN ERROR” I mr D ROT ‘her 

‘THE PC al HESS THE 

"PC WHERE ’CNT.RE LOCATED. 
2604 -THIS IS A VERY BASIC RR & IF IT 
605 OCCURS GO BACK TO TEST 10 

006110 013700 001332 MOV RKCS, RO 
Se Gille Bat? gus arses BY Btvap acon HARDEST DCO yg 10 TE Em 
5p08 BOIS ea 000015 MOV #15, RO ay Reser 
2610 006130 10441 CHKCRDY GO CHECK IF CONTROL RDY IS SET 
2611 :IF SO, SKIP THE EROR MESSAGE. 
2612 006132 104021 ERROR 21 ;CNTRL ROY DID NOT SET OF TER 
2613 ;SENDING CYL ROOR 1) vate 
Sie FROM ORIVES THE T VE COME BACK RDY’ 
spl? 006134 012705 177776 2s: MOV #-2,RS EBON PRAY E ay HERE 
2617 006140 032777 000100 173160 &S: BIT #100, JRKDS :CHECK FOR R/W/S READY 
2618 006146 0014 EQ +6 
gb13 006156 006172 MP § 
1 INC y 
2621 006156 001370 BNE 6$ 
cee; Wiles Oils me 
184 020770 S , GTYRG :G0, GET RKCS, ER, DS, DA 

2625 006170 104026 ERROR 26 -R/W/S ROY DID Not SET AFTER 
gbeb :DRIVE RESET 
2be8 006172 032777 OO1000 173126 3%: BIT #1000, SRKDS ;DID SIN SET? 
2629 006200 001403 BEQ 
2630 O06202 004737 020770 JSR PC, GTYRG G0’ GET RKCS ER,DS,DA 
ob31 006206 104001 ERROR 1 ;SI IN SET, AFTER A 
2633 006210 032710 140000 SS: BIT #140000, aRO WAS TERR’ BIT OR ’HE’ BIT SET? 
2634 006214 001403 BEQ 
2635 0062 16 004737 020770 JSR PC, GTYRG G0 GET RKCS, ER, DS 
2636 22 104022 ‘ ERROR 22 Mi OR 'HE’ BIT SET pRILE DOING 
2638 006224 022710 900214 4$: CMP #214, RO ;DOES RKCS STILL CONTAIN THE 
2639 :*DRIV RES’ BITS 
2640 606230 001406 BEQ TST13 YES, EXIT 
2641 OOb232 012737 O00214 01162 MOV #214. SREGO :GET EXPCTD RKCS 
eb42 006240 011037 001164 MOV JRO, $REG1 sGET RKCS vd 
2643 006244 1040924 ERROR 24 - RKCS SHOULD CONTAIN THE "DRIV RES* 
ges FUNCTION, ERROR IF DIFFERENT. 
2646 ijccr 1a CHECK SEEK’ TO CYLINER Orne 
2647 SATEST 13 CHECK SEEK’ 
2648 i THIS TEST CHECKS THE SEK LOGIC DOING SEEK TO CYLINDER 0. 
2649 % NOTE THAT SINCE THE HEADS ARE ALREADY ON CYLINDER 0, NO 
eb5C Ye HEAD MOVEMENT IS INVOLVEDN AND THE STRESS IS ON THE BASIC SEEK 
26 


Se jstesenkiaiunetieesecensenensssnssnsuneaneanennsaneneneennes 
2653 O0be4e 900004 +6113: SCOPE 


2654 


2657 


seee 


104421 


013700 
013777 


012710 
104412 


104021 


001332 
001350 


000011 


000100 


020770 
001000 
020770 


140000 
020770 


172750 
020776 


000210 


000210 
001164 


173052 


173020 


172776 


001162 


2S: 


3$: 


6$: 


4$: 


S$: 


CNT. RESET 
TST.SIN 
MOV RKCS, RO 
MOV DRIVAD, ARKDA 
MOV #11,9R0 
CHKCRDY 
ERROR 21 
CLR ns 
BIT #100, JRKDS 
BNE 3$ 

INC RS 
BNE 2$+2 
JSR PC, GTYRG 
RROR 

IT $1000, JRKDS 
BEG 
JSR PC, GTYRG 
ERROR 1 
BIT #140000, aRO 
BEQ ug 
JSR PC, GTYRG 
ERROR 22 
TST JRKER 
BEQ 
JSR PC, GT3RG 
ERROR 23 
CMP #210, JRO 
BEG TST14 
MOV #210, SREGO 
MOV JRO, $REG1 
ERROR 24 


I 
BL PTO EA Fhe ST 2G RUE Ze a, Pm 


006250 104413 


EL FSi. Hoses Br 


AND _ AFT! RY A CERTAIN T 
it. aie S NOT in 
. NOTE THAT 
THES IN TPRROR MES THE 
;PC ’CNT. T’ b OCATED 
;THIS IS A VERY Ic & IF IT 
cc KT 


A DO DRIVE RESET TO CLEAR IT 
;ADDRESS THE DRIVE 


- SEEK’ GO 
iG0 CHECK IF CONTROL ROY IS SET 
cent ROY’ DID NOT SeT AFTER SENDING 
Rat 2 DRIVE, "Abd ADD ACE” 
FROM THE 
s BHOULD HAC RELPOR TTING "CNTRL RDY’ 
;DID R/W/S RDY BIT SET? 
BRANC 
;WAT TED LONG ENOUGH? 
i1F NOT BK WAIT 
GET RKCS, ER 
Rue ROY Y-o16 not OF OF TER SEEK 


:NO, BRANCH 
G0, GET RKCS,ER,DS,DA 


;SIA SET ON DOING SEEK 

-TO CYL O NOTE THIS IS att 
:FIRST TIME THE HEADS HAVE 
:BEEN MOVED 


;WAS ’ERR’ OR ‘HE’ BIT SET? 
:60 GET RKCS, ER, DS 

"ERR’ OR ’HE’ BIT SET PHILE DOING *SEEK’ 
a ANY BIT IN RKER SET? 


:N 
GO, GET RKCS, ER 
?RKER SHOWS AN ERROR BIT, CHECK 


;DOES RKCS STILL CONTAIN SEEK’ FUNCTION 
:-YES, EXI 

‘ AET EXPCTD RKCS 

:GET RKCS RECVD 


RKCS SHOULD BE STILL CONTAINING 
ie eeK FUNCTION ERROR - IF IT CHANGED 


: crete lel at ERNIE RIS lB 


04 


MD-11-DZRKK-E, RK11 BASIC LOGIC TEST 2 ACY 1 30(1046) 07-JUL-77 09:38 PAGE S2 
DZRKKE.P11  07-JUL-77 09:37 CHECK R/W/S ROY IS CLEAR WHEN HEADS ARE IN MOTION 
2710 dose 14 CHECK R/W/S RDY IS CLEAR WHEN HEROS 8 pre IN MOTION 
2711 ; ¥THIS TEST ustecns THAT R/W/S DOES 
sots n7in Lae otHIS a a ton 
eri pe fe Bt Berle th: Lae A ott *ON nee 
e716 ; NOTE ne Mig 1H s iRet Te HEADS ARE MADE “TO MOVE BY SEEKING 
ate ii evnesuhisneseenesaesionaaeascenenneuneneennennsanesansanesy 
1 412 g00004 T14: 
$548 ope ats 104413 CN Reo Ee seT DO CONTROL RESET 
27el ‘tats IS A CALL FOR THE *CNTRL- 
2722 ‘RESET’ ROUTINE. A CONTROL RESET IS 
2723 : ISSUED AFTER A CERTAIN TIME 
2724 IF THE ’CNTRL_RDY’ DOES NOT SET 
2725 ‘AN ERROR IS REPORTED. NOTE THAT 
2726 ‘THE PC_IN ERROR SSAGE IS THE 
87 7 : PC CNT. y IS LOcaTED, 
7 | s THIS S A VERY BASIC IF IT 
Ses peHié 104421 TST.SIN 5 OECURS G0 BAC TOcteey 10 
731 if cH DO DRV- WeRESET TO, CLR IT 
2732 O06420 004737 O21S00 JSR PC, DRESET :MAKE SURE HEADS R 
2733 O06424 104026 ERROR 26 R/W/S RDY DIDN'T set 
2734 AFTER THE ABOVE DRV RESET 
2735 O06426 O0S00S CLR RS 
2736 006430 013777 001350 172702 MOV DRIVAD, IRKDA 
2737 006436 052777 000100 172674 BIS #100, aRKDA ;SEEK CYLINDER 2 
2738 O06444 013701 001326 MOV RKDS’ Ri 
2739 O064SO 012777 OO0011 172654 MOV #11. aRKCS :SEEK, GO 
2740 006456 032711 000100 1S: BIT #100, aR1 DID R“W/S _RDY CLR? 
2741 O06462 O0140S BEQ 2$ YES, BRANCH 
2742 006464 005205 INC RS 
2743 006466 100373 BPL 1$ 
2744 006470 004737 020776 JSR PC, GT3RG 
2745 006474 104025 ERROR 25 sR/W/S_RDY WAS NOT CLEAR WHEN HEADS 
a ‘WERE SEEKING TO CYLINDER 2 
2748 006476 004737 021432 2s: JSR PC, TSTRWS :G0, WAIT FOR R/W/S RDY TO SET 
2749 006502 104016 ERROR 16 ;R/W/S RDY DID NOT SET AFTER SEEK 
2750 TRIED TO CYLINDER 2 (ABOVE). 
2751 NOTE THIS WAS THE FIRST TIME A SEEK 
2752 'WAS TRIED TO A CYLINDER OTHER THAN 
2753 :0. 
2754 
2755 
2758 jHASHHHAEHSEHESEHESSHERERESEESEERUSR OSS AON TER SECTOR 
2759 : RTEST 1S CHECK ’WRITE’ FORMAT FUNCTION-CYLINDER O SECT OR O 
760 S*THIS TEST CHECKS THE LOGIC INVOLVED IN THE WRITE FMT 
761 ;#FUNCTION. ON ISSUING A WRT THE FOLLOWING IS CHECKED 
2762 ;#1) CNTRL ROY WAS CLEARED as GO WAS SET. 
2763 ite) ENTRL ROY seTs WITHIN @ A CERTAIN TIME ON COMPLETION OF FUNCTION 
2764 + "HE? R’ BI 


2765 :#4) IF RKDA INCREMENTED CORRECTLY FROM O TO 1? 


MO-11-DZRKK-E, RK11 BASIC LOGIC TEST 2 MACY11 30(1046) O7-JUL-77 09:38 PAGE S3 
T15 *WRITE’ FORMAT FUNCTION-CYLINDER 0, SECTOR 0 


DZRKKE.P11  07-JUL-77 09:37 CHECK 
arb :#5) IF AWC OVERELOWED CORRECTLY 70 02 
«de ; 
2768 is) if ANY alt IN " 
2769 :#8) IF THE ’WRT FMT’ FUNCTION BITS STILL IN THE RKCS? 
2770 #NOTE THAT ONE WORD '1 ‘ ITTEN ON SECTOR 
2771 °#0 8 IT WILL BE CHECKED IN THE NEXT TESTS. 
7 7e ss PEUTTTITTETTTITITITT TTT TTT ett eT iT tte Tit Titi ttt Tet ty SSERESE 
2773 006504 oD0004 tST1S: SCOPE 
2774 006506 104413 CNT. RESET :G0, DO CONTROL RESET 
2775 ‘THIS IS A CALL FOR THE 'CNTRL- 
e776 ?RESET’ ROUTINE. A CONTROL RESET IS 
2777 : ISSUED AND AFTER A CERTAIN TIME 
2778 :IF THE "CNTRL RDY’ DOES NOT SET 
2779 "AN ERROR IS REPORTED. NOTE THAT 
2780 : THE PC_IN ERROR NE SSAGE IS THE 
2781 ?PC WHERE 'CNT.RESET’ IS LOCATED 
2782 ‘THIS IS A VERY BASIC ERR & IF IT 
2783 OCCURS GO BACK TO TEST 10 
2784 006510 104421 TST.SIN :GO CHECK IF SIN IS SET 
2785 -IF SET, DO DRIVE RESET TO CLR IT 
2786 006512 012703 033336 MOV sOUTBUF ,R3 
2787 ;THIS CODE SETS UP A 256 WORD BUFFER 
2788 ‘WHICH WILL BE USED TO WRITE 1 SECTOR 
2789 ON THE DISK 
2790 1ST WORD 000001 
2791 :2ND WORD 177777 2°S COMPLEMENT 
27 :3RD WORD 000002 OF ABOVE 
237 ?4TH WORD 1 
2794 a» 
2795 :2 WORD 0177 
27% :254TH WORD 177601 
2797 255TH WORD 0000 
2798 256TH WORD 
ee0 % 006516 012700 009001 MOV #1,RO :SET COUNT 
2802 006522 010023 9g: MOV RO, (R3)+ :SET UP DATA WORDS 
2803 006524 010013 MOV RO’ (R3) 
2804 006526 005423 NEG (R3)+ 
2805S 006530 005200 INC RO 
2806 006532 022700 000200 CMP #200, RO ; DONE? 
2807 006536 001371 BNE 9$ 
2808 006540 005023 CLR (R3)+ ;SET 25STH WORD TO 0 
2803 006542 012713 125252 MOV #125252, IR3 :SET 2S6TH WORD 
2811 OO0654%6 012703 033336 MOV SOUTBUF , R3 ;RESET POINTER TO OUTBUF 
Ble 0065S2 013701 001332 MOV RKCS,R1 
2813 OO06556 013702 001336 MOV Re 
2814 006562 010312 MOV R3, ake ;FROM HERE-SET UP CURRENT ADDRESS 
2815 O06564 012777 177400 172542 MOV 8-400, IRKWC :SET UP WORD COUNT 400 
2816 006572 013777 001350 172540 MOV ORIVAD, SRKDA § :SET UP DISK ADDORS, SECTOR O, CYLINDER C 
e817 006600 012711 oc2003 MOV $2003, dR1 WRITE FORMAT, GO 
2219 OO6E04 10571: 1S: TSTB = ORL :WAS ’CNTRL RDY’ CLEARED AS GO WAS SET? 
2820 006606 100003 BPL 23 :YES, BRANCH 
282: 06610 004737 o2077¢ JSR C,GT3RG G0, GET RKCS, ER, DS 


COS 


MO-11-DZRKK-E, RK11 BASIC LOGIC TEST 2 RACY LL 30(1046) O7-JUL-77 09:38 PAGE SY 
DZRKKE.P11 ‘O07-JUL-77 09:37 T15 CHECK WRITE? FORMAT FUNCTION-CYLINDER 0, SECTOR O 
006614 104030 ERROR 30 ; CNT ’ DION’T C EAR AS GO 
oecs WAS BL ROY "WRITE F 
16 ss oO ROY’ SET ON COMPLETION OF WRITE” 
i 4 | ° 
oes. Doeeee aS Wee Ga 
2827 006624 005200 INC RO “NO, HAVE U Y WAITED LONG ENOUGH? 
2828 006626 001374 BNE 2$+2 IF NOT, L LOOP BACK 8 WAIT 
2829 IF YES 
2830 006630 004737 020770 JSR PC, GTYRG GO, GET RKCS, ER, 0S,DA 
2831 006634 013737 001350 o01202 MOV DRIVAD, SREGIO 
ease O0bb42 104416 BRKDAY G0 TO "poad" & BREAK CONTENTS OF 
2833 :§$REGIO INTO ORs 8, CYL SUR SEC BITS 
2834 O06644 104031 ERROR 31 :*CNTRL_RDY’ DIDN'T SET ON COMPLETION 
2835 OF WRITE FORMAT 
2836 tWRT FMT WAS DONE STARTING AT <DSK-ADRES> 
2837 INDICATED IN EROR MSGE. 
2838 OO6646 004737 021230 38: JSR PC, CHKHE "GO CHECK IF ’HE’ OR ’ERR’ BIT SET, 
2839 IF YES, SAVE RKCS, ER, DS, DA. 
2840 ‘RETURN HERE IF 
2841 OO66S2 104032 ERROR 32 :’HE’ OR ’ERR’ BIT SET WHILE DOING 
2842 :A WRITE FORMAT 
2843 tWRT FMT WAS DONE STARTING AT <DSK-ADRES? 
244 : INDICATED IN EROR MSGE. 
PB4S OOGESY 004737 021256 4S: JSR PC, CHKDA GO CHECK IF RKDA INCREMENTED CORRECTLY 
OB4e IF NOT, RETURN HERE 
2847 006660 104033 ERROR 33 “RKDA SHOULD HAVE INCREMENTED BY 
2848 1 SECTOR, IT DID NOT 
2849 006662 004737 021312 Ss: JSR PC, CHKWC ‘CHECK IF’ WORD COUNT OVERFLOWED, IF 
2as0 ‘NOT RETURN HERE. 
2851 006666 104034 ERROR 34 :RKWC DID NOT OVERFLOW TO OC, AFTER 
2852 XFER ON WRITE FORMAT 
2853 006670 022712 034336 6S: CMP SQUTBUF +1000, are -DID RKBA INCREMENT CORRECTLY” 
2854 006674 001406 BEQ “YES, BRANCH 
2855 006676 012737 034336 001162 MOV couTBUF +1000, sreto ; Q&T EXPCTD RKBA 
2856 006704 011237 001164 MOV aRe, SREGL “Get ACTUAL RKBA 
2857 006710 104035 ERROR :RKBA DIDN'T INCREMENT BY 1000 AFTER 
ease ‘WRITE FORMAT OF 400 WORDS 
22859 006712 004737 921336 7$: ISR PC, CHKER CHECK IOF ANY BIT IN RKER SET 
2860 IF YES RETURN HERE. 
2861 O06716 104036 ERROR 36 RKER BIT SET ON DOING 1 WORD 
2862 ‘WRITE FORMAT 
006720 022711 od2202 Qs: CMP #2202, aR1 DOES RKCS STILL HAVE “WRT FMT’ BITS? 
2864 006724 001406 BEQ TSTI6 YES, EXIT 
[B65 006726 012737 OO02202 001162 MOV 82202, SREGO sGET EXPCTD 
2866 006734 011137 OO1IE4 MOY OR1, SREG! GET ACTUAL _RKC 
2867 006740 104024 ERROR 24 seus DIDN'T CONTAIN 'WRT FMT’ SITS 
bbe AFTER THE FUNCTION WAS COMPLETED 
2870 $ cssseeleneeeenenseanessusenssasereaseeensaersneeazeseensseeenes 
2871 ‘ ATEsT 16 CHECK ’READ FORMAT’ FUNCTION-CYLINOER 0 
2872 THIS TEST CHECKS THE LOGIC INVOLVED IN THE WRITE FMT 
2873 t#FUNCTION. ON ISSUING A WAT FMT, THE FOLLOWING IS CHECKED 
2874 #1) CNTRL apy WAS CL A T. 
eer 48) CNTRL_ROY SETS UITHIN A CERTAIN TIME ON COMPLETION OF FUNCTION 
sé 


I 
2877 ;#4) IF RKDA INCREMENTED CORRECTLY FROM O TO 1? 


MD-11-DZRKK-E, RK11 BASIC LOGIC TEST 2 sa 30(1046) O7-JUL-77 09:38 PAGE SS 
DZRKKE.P11 07-JUL-77 09:37 T16 CHECK 'READ FORMAT’ FUNCTION-CYLINDER 0, SECTOR 0 


2878 :#5) IF RKWC OVERFLOWED CORRECTLY TO 0? 
2879 :#6) IF RKBA INCREMENTED CORRECTLY BY 2? 
gee 3 #7) F ANY ait s 

1 #8) IF THE a UA REE 
2882 :#9) FOR RKIIC, AFTER RD FMT 08 STO TNS THE CHECKSUM 
2883 :#FOR THAT SECT TOR. (125252 IN THI CASE, BECAUSE 
gees sar RST WORD IN 0 WAS Bee WITTEN: AS IN 
2886 #10) aor RID. AFTER RO FMT RKDB SHOULD CONTAIN 
sees #11) IF THE RO FMT FUNCTION BITS ARE STILL IN 
2989 #THE RKCS? 
28930 Td i a ea aaah aaah eh ha 
2891 OO&742 oo0004 +éT16: 
eg92 006744 905000 aC 0 
2893 OO0&746 104413 CNT. RESET G0, DO CONTROL RESET 
2894 iTHtS IS A CALL FOR THE *CNTRL- 
2895 ; RESE * ROUTINE. A CONTROL RESET IS 
2896 TEED AND BFTER A CERTAIN TIME 
2897 i IF THE *CNTRL DOES NOT SET 
2898 RROR IS REPORTED. NOTE THAT 
2899 THE PC IN ERROR MESSAGE IS THE 
2900 WHERE ’CNT.RESET’ IS LOCATED. 
2901 THIS IS A VERY Y BASIC ERR S 8 IF IT 
5a05 006750 104421 TST.SIN +06 eet eae tN IS SET 
2904 IF SET, 00 DRIVE RESET TO CLR IT 
2905 006752 013701 001332 MOV RKCS,R1 
2308 006756 013702 001336 MOV RKBA’ Re 

762 012703 033336 MOV sOUTBUF ,R3 

2308 006766 010312 MOV R3, SETUP, a0RS WHERE HEADER WORD IS TO BE 
2910 006770 012777 177777 172336 MOV #-1, ARKWC ‘SET UP WORD COU 
2911 006776 013777 001350 172334 MOV Saino. JRKDA =: SET_UP DISK SORS. SECTOR 0, CYLINDER 0 
ale 007004 012711 oo200s MOV #2005, aR1 !READ FORMAT, GO 
2914 007010 105711 1S: TSTE = ARI. ;WAS *CNTRL ‘ov CLEARED AS GO WAS SET? 
2915 007012 100003 BPL 2 : YES, 
2916 007014 004737 020776 ISR PC, GT3RG :G0, GET RKCS KER 
2917 007020 104030 ERROR 30 5 CNTR ROY SRONe Ke CLEAR AS GO WAS 
2918 :SET TO "READ FORMAT’ 
2919 007022 ooso00 23: CLR RO 
o300 007024 105711 STB Os WAS "CNTRL ROY’ SET ON COMPLETION OF 

1 ; TRANSFER 
2922 100411 BMI 33 BRANCH 
2923 007030 o0S200 INC RO NO. "HAVE U WAITED LONG ENOUGH” 
2924 001374 BNE 2$+2 !IF' NOT, LOOP BACK 8 WAIT 
2925 LIF YES. REPORT ERROR 
2926 007034 004737 020770 JSR PC. GTYRG GO, GET RKCS, ER, DS,DA 
2927 007040 013737 O013S50 oc1202 MOV DRIVAD, $REGLO 
2928 OO7046 104416 BRKDAY :GO TO ‘BDAY’ 8& BREAK <GONTENTS OF 
2929 ;$REGIO INTO OR ote kes ¢ BITS 
2920 907050 1O0404S ERROR 45S *CNTRL ROY DIDN'T SET Ba SS MELETION 
2921 ‘OF READ FORMAT i 
293 READ FMT WAS DONE STARTING AT <OSK-ADRES> 
2923 : INDICATED IN EROR MESGE 


MO-11-DZRKK-E, RK11 BASIC LOGIC TEST 2 MACY11 30(1046) O7-JUL-77 09:38 PAGE S6 


DZRKKE.P11  07-JUL-77 09:37 T16 CHECK ’READ FORMAT’ FUNCTION-CYLINDER 0, SECTOR O 
3334 0070S2 O04737 021230 38: JSR PC, CHKHE 3 CHECK fF Fane BB ae OR 'HE’ BIT SET, IF 
OC70S6 104046 ERROR 46 HE’ OR ’ERR’ BIT T WHILE 

Be REIS ty feeoo 
DONE CTARTING AT <DSK-ADRES> 
2939 HTROLCATED 1 IN EROR 
2940 007060 004737 021256 4$: JSR PC, CHKDA *CHECK IF RKDA INCREMENTED CORRECTLY 
2941 i IF NOT, RETURN 
2942 007064 104040 ERROR 40 : RKDA HAVE INCREMENTED 
e343 ‘BY 1 SECTOR, IT DID NOT 
en46 007066 004737 021312 cs: ISR PC, CHKWC Care TF RKWC OVERFLOWED TO 0, IF 
2947 007072 104041 ERROR 41 *RKWC DID NOT OVERFLOW TO O 
2948 :AFTER XFER ON READ FORMAT , 
2949 007074 Oe2712 033340 6S: CMP #OUTBUF+2,9R2  ;DID RKBA INCREMENT TO NXT WORD ADDRS” 
295 007100 OO1406 BEQ 7$ - YES, H 
2951 007102 012737 033340 001162 MOV #OUTBUF+2,SREGO ;GET EXPCTD RKBA 
2952 007110 011237 001164 MOV adRe, SREG! T ACTUAL RKBA 
2953 007114 104042 ERROR 42 RKBA DIDN’T INCREMENT BY 2 AFTER 
2954 :*READ FORMAT’ OF 1 WORD 
2955 007116 004737 021336 75: JSR PC, CHKER *CHECK IF ANY BIT IN RKER SET, IF 
2956 *YES RETURN HERE. 
2957 007122 104036 ERROR 36 ;RKER BIT SET ON DOING 
2958 READ FORMAT 
2353 007124 005713 Q$: TST aR3 :DOES QUTBUF CONTAIN THE HEADER 
2961 007126 001407 BEQ 9$ YES, BRANC 
2962 007130 005037 001162 CLR $REGO : NO. 
2963 007134 005037 001164 CLR SREG1 *EXPCTD HEADER 
2964 007140 011337 OO1166 MOV ORS, SREGE GET HEADER REC 
2965 007144 104043 ERROR 43 ;CORRECT HEADER WORD-O-WAS 
2966 ;NOT RECEIVED ON READ FORMAT 
2967 OO7146 022711 902204 9S: CMP #2204, dR1 :DOES RKCS HAVE THE ’ROFMT’ SIT 
2968 007152 001406 BEQ TST17° - YES 
2969 007154 012737 oO0e204 001162 MOV #2204, SREGO  AET EXPCTD RKCS 
2970 007162 911137 OO11E4 MOV JR1, SREGI :GET ACTUAL RKCS 
2971 907186 104024 ERROR 24 RKCS DIDN’T CONTAIN ‘RD FMT’ 
2972 BITS BF TER FUNCTION WAS 
2973 : COMPLETED 
2974 
2377 Se TECK READ’ FUNCTION-CYLINOER 0 GECTOR Oe 
2978 ; {ETEST 1? CHECK READ’ FUNCTION CYLINDER 0, SECTOR 0 
2979 ;*THIS IS THE FIRST TIME A of URE READ 6 PREFORMED IN THIS 
2980 t#TEST SEQUENCE. THE FOLLOWING IS BHECK ED 
2981 #1) CNTRL RDY CLEARS AS GO IS SET 
38 8) Flv on RDY SETS WITHIN A CERTAIN TIME ON COMPLETION 
2984 : #3) a co OR ’ERR’ BIT SET? 
2985 44) IF RKOA INCREMENTED CORRECTLY? 
2986 :#5) IF RKWC OVERFLO 
2987 #6) IF Bet INCREMEN ED, RORRECTLY? 
2988 #7) IF ANY RKER BIT 
2963 #8) IF THE CORRECT petepo- HEADER (FIRST WORD) WAS 


MO-11-DZRKK-E, RK11 BASIC LOGIC TEST 2 ott 301046) 07-JUL-77 09:38 PAGE S7 
DZRKKE .P11 O7-JUL-77 09:37 CHECK ’READ’ FUNCTION-CYLINDER 0,SECTOR C 


2990 ; #READ FROM SE OF 0 
2991 #9) IF THE PEE AD: UNCTION BITS ARE STILL IN RKCS 
cas ’ ooo00 ; WO Per tan on te bean wey oe oe 
1 4 17: 

2994 pee tee 104413 3K OPE SET DO CONTROL RESET 
2995 iets ISA A CALL FOR THE ’*CNTRL- 
29% RESET? ROUTINE. A CONTROL RESET IS 
2997 ISSUED AND AFTER A CERTAIN TIME 
2532 IF THE ’CNTRL RDY’ DOES NOT SET 
2999 AN ERROR IS NOTE THAT 
3000 ‘THE PC_IN ERROR 
3001 *PC WHERE ’CNT.RESET’ IS LOCATE 
3002 :THIS IS A VERY BASI 8 IF IT 
3003 :OCCURS GO BACK TO TEST 10 
3004 OO7174 104421 TST.SIN GO CHECK IF SIN IS SET 
3005 IF SET, DO DRIVE RESET TO CLR IT 
3006 007176 013701 001332 MOV RKCS,R1 
3007 007202 CLR RO 
3008 007204 013702 001336 MOV RKBA, R2 
3009 007210 012703 033336 MOV SOUTBUF , R3 
3010 007214 010312 MOV R3, aRe SET UP ADORS WHERE DATA WORD IS 
301, :TO BE X-FERRED 
3012 007216 012777 177400 172110 MOV #-400, IRKWC SET UP WORD COUNT 
3013 007224 013777 001359 172106 MOV DRIVAD, aR RKDA § ;SET_UP DISK ADRS, SECTOR 0, CYLINDER oC 
3014 097232 012711 oo000s MOV ‘READ, GO 
3016 007236 105711 1S: TSTB sR WAS "CNTRL ROY’ CLEARED AS GO WAS SET? 
3017 007240 100003 BPL 2s ry 
3018 007242 004737 020776 ISR PC, GT3RG GO.’ GET 
2019 007246 104030 ERROR 30 CHIR ROY RDY oh ROT CLEAR AS GO 
soSt 007250 ooso00 23: CLR RO 
3022 007252 105711 TSTB = ARI ;HAS CNTRL ROY SET ON COMPLETION 
3023 OF TRANSFER? 
3024 007254 100411 BMI 3$ ‘YES, BRANCH 
3025 007256 005200 INC RO :NO, HAVE U WAITED LONG ENOUGH? 
3026 007260 901374 BNE 2$+2 ‘IF NOT, LOOP BACK 8 WAIT 
3027 IE YES’ REPORT ERROR 
3028 007262 004737 020770 JSR PC, GTYRG , GEt RKCS, ER, 0S,DA 
3029 007266 013737 001350 oOl20e MOV DRIVAD, SREG1O 
3030 007274 104416 BRKDAY :GO TO "BDAY’ & BREAK CONTENTS OF 
3031 :§REGIO INTO DR #,CYL,SUR SUR, SEC BITS 

007276 104045 ERROR 45 “CNTRL ROY DID NOT SET O 
3033 sCOMPLET ION OF Reape 
3034 READ WAS DONE STARTING AT <DSK-ADRES> 
3035 : INDICATED IN EROR MESGE 
3037 007300 004727 92123¢ 38: ISR PC, CHKHE ;CHECK IF 'ERR’ OR "HE’ BIT IS SET 
3038 i IF YES, RETURN 
3039 007304 10404 ERROR 46 :*HE? OR ’ERR’ BIT SET WHILE 
3040 :DOING A READ. 
3041 ‘READ WAS DONE STARTING AT <DSK-ADRES> 
2042 : ; INDICATED. IN EROR ME 
2043 007206 004737 Oelese 4g: ISR PC, CHKDA CHECK TER KDA INCREMENTED CORRECTLY, 


RETURN HERE. 
S045 007312 104040 ERROR 40 :RKDA DID NOT INCREMENT 


MD-11-D 
DZRKKE . 


3048 
3049 
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004737 
104041 
0227 1e 
00 


007314 


007366 
007372 
007400 104044 


104024 


104413 
005777 


007462 
007470 


007476 104102 


021312 


034336 
034336 
001164 


021336 


leSeSe2 


125252 
171716 


000204 


000204 
001164 


171662 


061342 
I71E46 


001162 


001162 
901166 


171732 


001162 
001164 


00162 


S$: ISR PC, CHKWC Bre eK’ FF has RKWC OVERFLOWED TO 0, 
IF NOT RETURN HERE. 
ERROR 41 py OVERFLOW TO 0, 
6S: cH SOUTBUF +1000, , Re” “s. -D D RKBA INCREMENT CORRECTLY? 
MOV sOUTBUF +1000, sretg "CET EXPCTD RKBA 
MOV dRe, $REG! T ACTUAL RKBA 
ERROR RKBA DID NOT INCREMENT BY 2 
‘AFTER READ’ OF 
7$: JSR PC, CHKER tals IF ANY BIT IN RKER SET, 
:T s RETURN 
ERROR 36 ;RKER & i age! ON DOING 1 
8S: CMP #1, aR3 ‘DOES OUTBUF CONTAIN THE RIGHT 
‘DATA WORD 
BEG *YES BRANCH 
MOV #1, $REGO :GET EXPCTD DATA WORD 
MOV (R3), $REG1 *GET RECYD DATA WORD 
MOV DRIVAD,$REG2 § :GET DISK ADRS FROM WHICH READ WAS DONE 
ERROR ‘DID NOT READ THE CORRECT 
!DATA WORD--FROM DISK ADRES, 
;SEC 0, CYL 0, SUR O 
:BETER l SECTOR READ RKDB CONTAINS 
THE CHECKSUM FOR THAT SECTOR 
:THE LAST WORD TRANSFERRED TO MEMCRY 
try SO HAPPENS THAT WITH THE SECTOR 
‘THAT WAS READ, RKDB CONTAINS THE 
SAE ING ORM ‘9 ORMATION FOR BOTH RKLIC 
QS: CMP #125252,9RKDB :DOES RKDB CONTAIN THE EXPCTD WORD? 
BEG ?YES, BRANCH 
MOV #125252, $REGO :GET EXPCTD RKDB 
MOV JRKDB, $REG1 ; GET RECVD RKDB 
ERROR 37 DOESD NOT CONTAIN THE 
HEXPCTD WORD AFTER A READ OF SEC O 
10S: cup #204, ORI :DOES RKCS HAVE THE *READ’ BITS? 
MOV #204, SREGO : GET EXPCTO RKCS 
MOV dR1, $REG1 :GET RECVD RKCS 
ERROR 24 :RKCS DID NOT CONTAIN ‘READ’ 
‘FUNCTION BITS AFTER OPERATION 
:WAS COMPLETED 
11$:  CNT.RESET :GO DO CONTROL RESET 
TST ORK OB ;DID CONTROL RESET CLEAR RKDB” 
BEG TSTe0 ; T 
MOV RKDB, SREG! T S OF RKOB 
MOV aRKDB, $REG1 :GET CONTENTS OF RKDB 
ERROR :CONTROL RESET DIDN’T CLR RKDS 


HOS 
SGaAeOBREME. Bk 4h, BESTEL GGIC TEST 2 GEGYIL SBLARCI ae AP TbACTroR-CNEINDER 0, SECTOR 0 


3102 
ee TE TEORMAT’ CYLINDER O SECTOR O-13 
 RTEST T 20 tek FORINA Ree OEE 0, SECTOR 0-13 

& PERFORMS A WRT 


a SHOR i ce HE CEOML TE ON COMPLETION 


: #2) f Cae Then ‘ERR’ BIT SET? 
; #3) if THE RKDA INCREMENTS CORRECTLY? 
#4) IF THE RKDB IS CLEAR 
; HURT FMT IS DONE ONE SEF OR A T A TIME 
#THE FIRST WORD OF EVERY SECTOR IS WRITTEN AS A 
t SPSUEDO-HEADER R CONSISTING OF DRIVE #, CYLINDER #, SURFACE 
48 SECTOR #. THIS WILL BE READ & CHECKED IN THE FOLLOWING TEST. 


29 


= p= 9b b= 


007500 ocoo04 té129: 
007502 013703 001332 av RKCS,R3 
Ol2e702 177764 MOV 8-14, Re ;SET UP COUNT FOR 12 SECTORS 
007512 013704 001340 MOV RKDA'R 
007516 013701 001350 MOV DRIVAD,R1 ;GET DRIVE ADDRESS 
007522 010105 MOV R1,RS ‘STORE IT 
907524 o0S205 INC RS 
012737 007534 001110 MOV #1$, $LPERR ET RETURN neon 9) LUPING 
007534 104413 1S: CNT. RESET po c 


‘fats 1S Re FORT *CNTRL- 
CONTROL RESET 


fa Rio aFiER A CER 4 cenrAin TN TES 
;AN ERROR IS REPOR TED. ROTE her 


; ERROR ME 

;PC WHERE "CNT.RESET’ IS LOCATED. 
;THIS IS A VERY BASIC ERR & IF IT 
;OCCURS GO TO TEST 10 


Is 


IW O00) GG GIGI GY) GI GIG) GC OG) I 0 Gd GG GJ GIGI GIG GI I Gd GI GI GIG GG 


HS eR RR OR BRR ROR Sw New cor-oow Wr 
; 


007536 104421 TST.SIN GO CHECK IF SIN IS SET 
IF SET, DO DRIVE RESET TO CLR IT 
007540 oos000 CLR RO 
007542 910137 933336 MOV R1, OUTBUF : THIS WORD TO BE X-FERRED. FIRST 
:WORD OF EACH SECTOR WILL BE T 
3 ‘ACTUAL DRIVE-ADORS CONSISTING OF 
3142 gcron CYL ADORS, SURFACE 
hel OO7S44 012777 033336 171562 MOV #OUTBUF , IRKBA Ertan FROM WHICH DATA WORD IS TO 
a eae Th per HOY He ODRS if in a CORRECT SECTOR 
v 
3148 BO Tees 10413 002003 MOV fe 3, ae ie ORIVE 
3150 007570 105777 171536 23: TSTB  aRKCS ;DID *CNTRL RDY’ SET? 


S1 007574 100410 BMI 3$ :YES, BRANCH 


757: 00 INC RC iNO, HAVE U WAITED LONG? 
Bo7e08 Bor373 BNE es ;I1F NOT, LOOP BACK 8 WAIT 


$i 

3125 

see 47 2 0770 ISR PC, GTYRG iI YES, ae RRC 

Stee oEDE sey ae MOV RI’ SREGIO ‘a0 SSK AbRe PR arpoey Nie SUR, SEC) TO WHICH 
3157 “WRITE FORMAT WAS DONE 


Mot LeOgRy K-E, ob}, 888751 987° TEST 2 WeGvid SRE) wal ze oJ SRMAT’ OoRSEINDER 0. SECTOR 0-13 


WWI WIIG) C0) GS) G0 Gn) CGI) GI GI) 
{Grune coho & 


Ve AZINAS SE 


Wu) 
—e 
i“ 


Ww Ww 
coo 53 “3 
~830 


WWWWWIW) 
= he 
2S 


UO) WU IU) GIG) GY GIGI) GUGIU) 
ob be be ae ee 
RRESH2SSSIRR 


7 
Ste Wt. Bs 


WwW 
ay) 


3202 


007612 
007614 


007616 
007622 


O07eSe 

660 
007664 
007666 


007672 
007674 


104416 
104031 


004737 
104032 


004737 
104033 


005777 


08037 
017737 
104037 


goS20e 
001317 


O2le2e 


021264 


171504 


001162 
171472 


000014 
ooo004 


001164 


3$: 


4§: 


S$: 


6$: 


sei iSiccio ER oR # EV SUR, oeC 81's 


ERROR 31 o hor get ON COMPLETION 

7 T TEER sree AT <OSK-ADRES> 
JSR —- PC, CHKHE1 ‘CHECK IF ’ERR’ OR 'HE’ BIT IS SET, 
ERROR 32 Te RRPEERR” BIT SET WHILE DOING 


BI 
;WRT WAS DONE STARTING AT <DSK-ADRES’ 
i HNDICATED DN EROR MSGE. 


JSR PC, CHKDAL ;CHECK IF RKDA INCREMENTED CORRECTLY” 


ERROR 33 ;RKDA DID NOT INCREMENT CO CORRECT 

Cilthobe "aECTOR Ih IN TERROR at exon 
TST JRKDB 

Seca | WRT i poe DOrs. aNTaIN WRITTEN 
i sas SERIALLY SHIFTED OUT TO THE DISK 
BF $3 co Tas cs ' eT RKDB SHOULD CONTAIN 
ERROR a ate AFTER WRT SINC 

Ph : bathe fia SERIALLY EAIF ED 

INC R SCREREN OBRIVE ADDRS TC NXT SECTOR 
CHP a4, ,RS Re U GOING 70 TO CHECK THE LAST SECTOR? 
ADD #4,R5 g NT _RS_ CORRECTLY TO. sEXPCTO RKDA* 

eh sane NE cKED THE LAs! 3 
INC m2 Mio FORMATTED ALL le 
BNE 1$ BRANCH H BACK eosB 

Tf Wes’ EXIT 


ggrgreeenrenmarmnrrergeenena gree 


"READ FORMAT’-CYLINDER 0, SECTOR 0 


el C 
;*THIS TEST PERFORMS A RD FMT ON THE 12 SECTORS OF CYLINDER 0 


Hal) . RDY SET WITHIN A CERTAIN TIME ON COMPLETION 
: #2) F a4 m.. R FRRoe BIT 

#3) RENTS. CORRECT sa] 

ite) aa DEERE eb TS GPFEOR i cr 


7) fae FACS. ie L Fee ei ee FUNCTION Bre. 
!#OTHER TESTS T T 


URE THA 
:*IT IS_AN IRRECOVERABLE HORROR "ND ROT A_TRANSIENT 
?#0NE. THIS CAN BE DONE BY LOOPING ON THE TEST 
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12 aby cAPREARS ON RETRICS. WHEREAS A Bete C ERROR DOES NOT. 


3216 GET Sart ote Bhd dae 5 Al tes Be Bh tate Bane 
ae is eae tira]: ace a 

§ 5077 4] NT. RESET G0, DO CONTROL RESET 
3220 smuis IS A afi ALL FO FOR. THE 7 
356} Teel Ree APYER a nTROL AGS 

3 IF Te *CNTRL RD 
3224 aN ERROR I$ REPORTED NOTE THAT 

2s ‘THE PC IN ERROR ME 

? H he a VERY BBEIC Be 8 IF IT 
3255 i HeeeS 8 MBE FGSTE SP Yo 
3229 007704 104421 TST.SIN GO CHECK IF SIN IS SET 
3230 os P he. are t :IS SET, DO DRIVE RESET TO CLR IT 
353) BB 5508 Bt az A 004335 MOV Ka RA ;SET UP COUNT FOR 12 SECTORS 
3233 007716 013702 001340 MOV RKDA; Re 
3234 007722 013712 001350 MOV DRTVAD aR2 ;ADDRESS THE DRIVE 
3235 007726 012704 033336 MOV TBUF RY 
SS DOTPE OLeTr? Az77eN 17137 NOV ms Tas EOE eee CHOUNT FOR 12 HEADERS TO BREAD 

1 ; 
ce ee pt5555 hasope 121375 MOV wf. oRKu i READ FORM onRee gy 
3240 007752 105777 171354 1S: STB IRKCS s010 CNTRL ROY SET ON COMPLETION? 
te . 
3544 863528 boeene ORR i "uty FOR IT TO SET 
3243 007762 001373 BNE 1$ LONG ENOUGH REPORT 
EERO, TBTMERUISE 100 LOOP twa & WAIT 
007764 004737 020770 JSR PC, GTYRG 

3246 007770 013737 001350 o01202 MOV DRIVAD, $REGIO 
32047 007776 104416 BRKDAY :GO TO ’BDAY’ & BREAK CONTENTS OF 
3048 ‘§$REGIO INTO DR#,CYL,SUR,SEC BITS 
3249 O10000 104045 ERROR 45S :CNTRL ROY DID NOT SET oh COMPLETION 
3250 OF READ FORMAT-OF CYLINDER 0, 
3251 ; SECTORS | 0-13 
3252 ‘READ FMT WAS DONE STARTING AT <DSK-ADRES> 
3253 INDICATED IN EROR MESGE 
3254 010002 004737 021230 2S: JSR PC, CHKHE FHC IF ’ERR’ OR ’HE’ BIT IS SET, 
3255 F YES RET 
3256 O10006 104046 ERROR 46 :*ERR? OR ‘HE’ BIT SET ON DOING 
3257 ; READ FMT-OF CYLINDER 0 SEC 9-13 
3258 READ FMT WAS DONE STARTING AT 1 SK-ADRES> 
3259 INDICATED IN EROR RESCE 
3260 010010 013705 001350 38: MOV DRIVAD,RS 
3261 010014 062705 900020 ADD #20,R5 :RKDA SHOULD HAVE INCREMENTD TO (R2) 
3263 010020 004737 021264 ISR PC, CHKDAL ;CHECK IF RKDA INCREMENTED CORRECTLY, 
3265 10024 104040 ERROR 40 RKDA ofp NOT INCREMENT BY 12 
3266 !AFTER A 'RD FMT’ OF le HEADERS OF 
3267 ‘CYLINDER 0, SECTORS 0-13 
3266 *RKBA SHOULD INCREMENT BY 24 BYTES 


3265 AT THE END oF X-FER 


ia 
¢ 


BURRRES Pt "op ddLoe? Garg © "EP! ® F2G""! “Be echo FORMAT? -CYLINOER O, SECTOR 0-13 


$679 BIRR QEFGG> 099966 171202 4S: Ge BQUTBUF +30, @RKBA 4D]0 RKBA INCREMENT CORRECTLY? 
3272 010036 012737 


039366 001162 MOV BOUTBUF +30, SREGO. -GET EXPCTD RKBA 
6oq BYBBeS PACE ERXor  gBK fle 61D boP Mcnenent. CORRECTLY 
3275 @ B READ FORMAT ADERS 
a 010054 004737 021312 S$: ISR PC, CHKWC iff “hella te vend TO 0 
010060 104041 ERROR 41 we DID Low TO 
a EL ABeeg © 12 Hrs 
3281 010062 005724 6$: 1st (R4)+ :WAS THE CORRECT HEADER RECIEVED? 
i586 Bt Bo Adds 001162 RES aa $REGO XE BRON FOR WHICH THE HEADER 
3284 o1007¢ 062737 p00 001162 ROD #1 SREGO icaAs NOT BE READ CORRECT 
ee stat poaus; Bt bes abv StRGS. sRec2 i fxe URoNE HERDER Reeve 
10110 104043 ERROR 43 ero WAS NOT READ RIGHT FOR : 
35Re 010112 005724 TST (R4)4+ ies The (Rett FR AGED a 
3290 010114 005200 7$: INC RO HAVE U CHECKED FOR ALL 12 SECTORS? 
3231 010116 001361 BNE 6$ iE Swot LOOP BACK & CHK HDR FRM NXT SECTR 
3293 010120 004737 021336 ISR PC, CHKER ;CHECK IF ANY BIT IN RKER IS SET, 
3294 ‘IF YES, RETURN HERE. 
3295S 010124 104036 ERROR 36 :RKER Bir SET ON DOING RD FMT 
32% i0F CYL SECTORS 0-13 
3297 010126 022711 002204 QS: CMP . #2204,9R1 :D bee STILL CONTAIN FUNCTION BITS? 
3298 010132 001406 BEQ TST2 OE EXIT 
3299 010134 012737 oO02204 001162 MOV #2204, $REGO : GET Ma RKCS 
3300 010142 011137 OO1164 MOV JR1, $REG1 ?GET ACTUAL RKCS 
3301 O10146 104024 ERROR 24° °° *RKCS’DID NOT CONTAIN ‘RD FMT* 
3302 , “FUNCTION BITS ON COMPETION OF 
3303 THE FUNCTION 
3304 
3 She 
3307 s SLRFLEAEASALELSEARRRAAAARARAERARSARSEASAAEARAARARARAALASALAREL ALES 
3308 TEST 22 CHECK *READ’,CYLINDER 0, SECTORS O TO 13 
3309 j*THIS TEST PERE ORNS A READ OF ALL THE SECTORS OF CYLINDER 0 
3310 #8 CHECKS THE FOLLOWING 
3311 #1) CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION 
3312 j40F THE FUNCTION 
3313 ) I rte OR “ERR” BIT SET? 
3314 55) F THE CORRECT DO-HEADER (FIRST WORD OF EVERY) 
3215 mia pe conan "re Somme RO TEST) WAS RECEIVED. 
3317 3 TE fos CONTE COREE ET yAORO 
3318 isc) IF REST OF Me) COORDS IN’ EACH SECTOR ARE ‘0’ , NOTE 
3319 : #PREVIOUSLY WORD Was WRITTEN PER SECT 
3320 #6) IF RKCS STILL CONTAINS THE 'READ’ FUNCTION BITS 
3321 #7) IF CONTROL RESET CLEARS 
3322 :# IF TESTING IS BEING DONE ON A SIMULATOR ONLY LAST SECTOR(13) 
3323 ;#IS READ BECAUSE THE SIMULATOR CAN STORE ONLY 1 SECTOR (256 WORDS). 
3324 *HENCE ONLY THE DATA WRITTEN LAST CAN BE READ Ba cK. 


DeRKKE.Pil 


oidlee 
010160 


10164 
baie 
101 


07- 


B1e7a7 


013703 


ee 
Bie 


104421 
010177 
010477 
012777 
012713 
G0S000 
105713 
00410 
S200 
001374 
004737 
010137 
104416 
104045 


004737 
104046 


RK 1 88 IC LOGIC TEST 2 MACY11 30(1046) 07-JUL-77 
09:37 T22 
TST22: SCOPE 
010224 001110 MOV 81S, SLPERR 
001332 MOV RKCS,R3 
001350 M y IVAD, Ri 
033336 MOV sOUTBUF , RY 
001344 TST MUL 
BEQ 
000013 BIS #13,R1 
oo00020 B75 #20/R5 
BR 1$ 
177764 9S: MOV #-14,R2 
INC RS 
1S: CNT. RESET 
TST.SIN 
171104 MOV R1,3RKDA 
171076 MOV R4’ IRKBA 
177400 171066 MOV #-400, JRKWC 
oo000s MOV #5, aR3 
CLR RO 
2S: TSTB so RB 
BMI 3$ 
INC RO 
. BNE 2$ 
020770 JSR PC, GTHRG 
001202 MOV R1; $REG1O 
BRKDAY 
ERROR 45 
021222 2S: JSR PC, CHKHE 1 
ERROR 46 


09:38 PAGE 63 
CHECK 'READ’,CYLINDER 0, SECTORS O TO 13 


;SET RETURN ADRES FOR LUPING 
; ON ERROR (SW 9) 


iT ST SIMULATOR? 
HE. ee ON aah READ 
BITS FOR ¢ 13 


RKDA SHOULD INCRMNT TO THIS AFTER READ 


set cut, COUNT foe TNGRERENT 10, jouer 


Tuts ATER. 1 "SECTOR 


CONTROL RESE 
TS A CALL FOR THE ’CNTRL- 


ines \ ig ROUTINE. A ONTROL RESET IS 


: IS 
j THE PC IN ERROR MESSAGE IS THE 
PC WHERE ’CNT RESET” IS LOCATED. 
‘THIS IS A VERY BASIC ERR & IF IT 

‘OCCURS GO BACK TO TEST 10 

;G0 CHECK IF SIN IS SET 

*IF SET, DO DRIVE RESET TO CLR IT 
‘ADDRESS THE DRIVE 

ADRS TO WHICH X-FER DATA FROM DISK 
; SETUP WORD COUNT 


;DID CNTRL RDY SET ON COMPETION? 


= 
alas 


DS.DA 
ADDRES WHERE ERROR OCCURED 
AY’ & BREAK <GONTENTS OF 


#,CYL,SUR,SEC BITS 
Not ott ON’ COMPLETION 
WNOER a, SECTOR 
TING. AT <DSK-ADRES> 


wagons g*S5 
2° 


é Suod 
a. 
z oO 


BRR eRe ERAS 
nie 


DD 
d 


ra 
ee 


READ’ eS CYLINDER 0, SECTOR 
~ADRES> 


ONE TARTING AT <DSK-ADRES> 
INDICATED IN EROR MESGE 


MD-11-DZRKK-E, RK11 my es TEST 2 hh 30( 1046) 


DZRKKE.P11 
3388 010306 020114 


Rena z 


OoOoOoO00000O 
R 


2nd 


oOo oo 
— = 
Oo oo 
= P= 
o 28 


010432 


"07-JUL-77 


004737 
104040 


012737 
00 


012037 
010137 
104044 


005237 
001357 


005737 
001011 


005201 
005205 
122705 


033340 


177401 
001362 
001162 


001164 
001166 


001370 


001344 


000014 


001370 
001362 


4§: 


SS: 


118: 


12S: 


73: 


CMP 


07-JUL-77 


R1, (RY) 


PC, CHKDAL 
40 


#-3,EFLG1 
#OUTBUF +2, RO 
8-377, COUNT 
aRO 

12$ 

(RO)+ 

COUNT 

11$ 


$REGO 
(RO)+, $REGI 
R1, $REG2 
44 


EFLG1 
11$ 


SIMUL 
10$ 


Rl 
RS 
#14,RS 


09:38 PAGE 64 
CHECK *READ’,CYLINDER G, SECTORS 0 TO 13 


WAS THE DATA WORD RECVD CORREC cr? 
THE FIRST DATA WORD OF EACH SE 


Ee ER aot Ge aE oR RENE v0, 


GET EXPCTD DATA WORD FROM DISK 
‘GET THE DATA WORD RECVD 

‘GET DISK ADRES 

‘DID NOT RECIEVE CORRECT DATA WORD 0 

‘READ, OF CYLINDER 0, SECTOR AS SHOWN IN ’DSK 
*ADRES’ OF EXPCTD DATA 

“CHECK IF RKDA INCREMENTED CORRECTLY, 


: DID NOT INCREMENT CORRECTLY 

"AFTER READ OF 1 WORD, FROM CYL O 
“SEC IN ERROR IS 1 LESS THAN THAT 
; SHOWN IN EXPCTD RKDA 


fas A_RESULT OF ’WRT FMT’ IN A PREVIOUS TEST 
FIRST WORD OF EVERY SECTOR IS NON- 
; ZERO (PSUEDO-HDR), REST 377 WORDS 


L_0’S. 
‘CHECK IF THE REST OF THE 377 
ARE 0’S 


jl 
ALLOW ONLY 3 ERRORS 
INITIALIZE PTR TO 2ND WRD IN BUFR 
‘CHECK 377 WORDS IN THE BUFFER 
TS THIS WRD O 
HINGRINT PTR TO NXT WRD 
HKD ALL 377 WROS? 
YES, BRANCH 
:GET EXPCTD WORD 
‘GET WORD RECVD 
GET DISK ADRES, ERROR IN THIS 
ECTOR 


‘DATA ERROR, THE LAST 377 WORDS 
SECTOR SHOULD B 


?READ FROM EACH SECT 

"IN A PREVIOUS TEST 

“EVERY SEC (CYL 0) WAS WRITTEN AS A 

iB DO- REST OF IN 
TR ARE AUTOMATICALLY WRITTEN AS 


:0°S. TS ERROR MAY MEAN T 
;DION’T HAPPEN SO 
ALLOW ONLY 3 DATA ERORS OF THIS KIND 


; TESTING ON SIMULATOR? 

ry RANCH 

:IF NOT bikers ON SIMULATOR GO AHEAD 
& READ ALL le N CY 


; SECTOR L 
; INCREMENT DRIV-ADRES TO NXT SECTOR 
CREMENT *EXPCTD DRIV-ADR 


N 
:R U GOING TO READ THE LAST SECTOR? 


MD-11-DZRKK-E, RK11 BASIC LOGIC TEST 2 MACY11 Aa: 
DZRKKE.P11  'O7-JUL-77 09:37 Tee CHECK 


07-JUL-77 09:38 PAGE 65 
*READ’ CYLINDER 0, SECTORS O TO 13 


3438 010436 001002 BNE . +6 ;IF NOT, BRANCH 
3439 010440 062705 o00004 ADD #4,R5 iif eet _ INCREMENT ‘EXPCTD RKDA’ 
44 N R 1 
Sch BIBS BBE me gh OR Bt RD 
104S0 022713 000204 10S: CMP 204, aR3 ‘D0 eS ces. ,STILe HAVE THE ’READ’ FUNCTION 
Side 10454 001406 BEQ 8 
3446 010456 012737 000204 001162 MOV #204, SREGO GET’ EXPCTD MeKCS 
3447 010464 011337 O01164 MOV RB, $REGI iGET RKCS RECVD 
3448 010470 104024 ERROR 24 RKCS SHOULD STILL CONTAIN THE ’READ’ 
3449 FUNCTION BITS 
3450 010472 104413 QS: CNT. RESET GO ,DO CONTROL RESET 
3451 THIS | ISA CALL FOR THE *CNTRL- 
3452 RESET’ ROUTINE. A CONTROL RESET IS 
3453 *T AND AFTER A CERTAIN TIME 
3454 IF THE 'CNTRL ROY’ DOES NOT SE 
End - ANE! 15 TE . NOTE THAT 
6 ‘THE PC I ME IS THE 
3457 * PC WHERE ’ SET’ IS LOCAT 
3458 ‘THIS IS A BASIC ERR & IF IT 
3459 ‘OCCURS GO BACK TO TEST 10 
010474 005777 17064e TST aRKDB ;DID CNTRL RESET CLEAR RKDB? 
3461 010500 001407 BEQ F EX 
010502 013737 001342 001162 MOV. ReDE- SREGO S OF RKDB 
010510 017737 170626 001164 MOV ORKDB, SR GET CONTENTS OF RKDB 
3464 010516 104102 ERROR ‘CONTROL RESET DID NOT 
3465 CLEAR RKDB 
a 
ps Senunspenensusnnenersesszcsaenanneeer ia 
3469 : ETEST 23 "WR OF THE DISK 
3470 -#THIS TEST WRITE FeRnar S THE ENTIRE DISK. THE FIRST 
3471 : WORD OF EVERY SECTOR IS WRITTEN TO BE A PSUEDO-HEADER 
3472 ; #CONSISTING OF THE DRIVE #, CYLINDER # SURFA cE & SECTOR # 
3473 1 SECTOR IS WRITTEN AT A *tIME. THE WRtTING ONE 
3474 SINT HIS : CYL O-SUR 0; Bi OeStR le cve 1OSUR 0 
3475 :¥CYL Maur 1; CYL 2-SUR O; CYL 2-SUR 1----- 312-SUR 1 
3476 : IMPORTANCE OF THIS TEST SHOULD BE REALIZED, THIS IS 
3477 t¥THE FIRST TIME EACH & EVERY SECTOR ON THE DISK IS 
3478 :¥ACCESSED & WRITTEN ON. THIS IS THE FIRST TIME RKDA 
3479 :#1S BEING MADE TO INCREMENT OVER THE ENTIRE DISK (FROM 
3480 i TO 014520) IF A ’SIN’ OCCURS AT ANY POINT 
3481 ’ ;#8 DRIVE RESET IS DONE BEFORE DOING WRT FMT FOR THE NEXT 
3482 t¥SECTOR. ANY OTHER ERROR IS CLEARED THROUGH A CONTROL RESET. 
3483 bere FL OuING CHECKING IS DONE AFTER WRITING EACH 
» ¥CY' 
3485 '¥1. CNTRL RDY SETS WITHIN A CERTAIN TIME ON COMPLETION 
3486 :%0F THE FUNCTION. 
3487 "#2, IF ’SIN’ OCCURRED? 
3488 :%3. IF HE’ OR ’ERR’ SET? 
3489 :#4- IF RKDA INCREMENTED CORRECTLY, INCLUDING BOUNDAR 
3490 ¥CONDITIONS (SECTOR COUNTER BITS OVERFLOWING INTO SURFACE, 
3491 ;¥SURFACE BIT OVERFLOWING INTO CYLINDER BITS) THE END 
3492 :#OF THIS POINTERS ARE INCREMENTED ADJUSTED, 
3493 :%8 "WRT FMT’ ON THE NEXT SECTOR IS DONE. 


MO-11-OZRKK~E, KIL BAS 
DZRKKE.P11 = "O7-JUL-7 


Kab a] 
343 
34 


SR 


Nw 
3499 


B 


3501 


Beep aeae 


eaerottatat 
WONMWUI£CWh-O 


BREE 


SECM S RCH aN San 


IC LOGIC TEST 2 
03:37 


001000 


020776 
001170 


B06 
Mae eee unite FORMAT’ OF THE Disk 


-  SELSESELELSLALALSLSLALS SEL ELE LES SLELSELLLASSSE SAL RLS RAL SLE SSS SS 


t$T23: SCOPE 
MOV 


#1, STIMES 


001206 
001110 MOV #1$, SLPERR 
CLR R3 
MOV #-313,R4 
MOV 8-14 Re 
MOV DRIVAD, R1 
MOV R1,RS 
INC 
1$: CNT. RESET 
TST.SIN 
7$: CLR COUNT 
MOV R1, OUTBUF 
170534 MOV SOUTBUF , IRKBA 
170524 MOV 8-1, JRKWC 
MOV R1, aRKDA 
170510 MOV #2003, JRKCS 
2s: TSTB  aRKCS 
BMI 3$ 
INC COUNT 
BNE 2s 
JSR PC, GTYRG 
MOV R1;$REGIO 
PRKDAY 
ERROR 31 
170446 35: BIT #1000, aRKDS 
BEQ 4 
JSR PC, GT3RG 
MOV R1,SREG3 
ERROR 1 


Vv 
Ps] 
w 

-_—— 


ING WRITTEN 
I N 


i 


5 
ace 


3 
Re 


0 CLR IT 

THE FIRST 
THE ACTUAL 

THE DRIVE NO, 

TOR ADRE 

IS TO B X-FERRED 

ve, WITH CORRECT CYL 

FORMAT, GO | 

T 


weneooes Venza yas 
é 
5 


o A 


0S.DA 
WHERE ERROR OCCURED 
CONTENTS OF 
SUR,SEC BITS 
ON’ COMPLETION 
SECTOR AS 


TING AT <DSK-ADRES> 


E ae 
- 


SuRSSLS 

ze -+- OO-+4 

o - _ 
e255 
xe 


MO-11-DZRKK-E, RK11 BASIC LOGIC TEST 2 mega 30(104%6) Q7-JUL-77 


DZRKKE .P11 


010674 
010700 


010742 


"07-JUL-77 09:37 


004737 
104032 


021222 


021264 


177776 


coooo4 


177764 
000037 


000020 


000040 


4§: 


6$: 


03:39 67 
CHECK ’WRITE FORMAT’ OF THE DI 


JSR PC, CHKHE 1 i CHECK. IF gefuen fe 'HE’ BIT IS SET 
ERROR 32 tHE oR trae WHILE DOING 


; WRITE 
een <SECTOR AS INDICATED IN 
MT_ WAS DONE STARTING AT <DSK-ADRES> 


Pa INGRERERTED CORRECTLY, 


JSR PC, CHKDA1 


ERROR 33 ‘08 a OD NOT T NOT INGRERENT CORRECTLY 
TO THE SE CtOR PREV PREVIOUS TO THAT 
s INDIC CATED ED IN “EX EXPCTD’ RKDA 

INC RI : INCRE NXT SECTOR 

INC RS LINCREFENT RS, bi WHAT RKDA WILL INCREMENT 

CMe #-2,R2 *R U GOING TO’ FORMAT THE LAST SECTOR 
!IN THE CYLINDER ? 

BNE +6 IF NOT 

ADD #4, RS i INCRENEN T RS CORRECTLY TO ’EXPCTD RKDA’ 

INC R2 "HAVE U FORMATTED ALL 12 SECTORS 
: ON THIS CYLINDER 

BNE 1S ‘IF NOT, LOOP BACK & FORMAT THE 
ext Stct TOR 

MOV #-14,R2 RESET THE COUNT FOR 12 SECTORS 

BIC #37,R1 ‘CLEAR THE SEC ADRES BITS 

TST R3 SURFACE 1 

BNE 8 ‘YES, Se anc 

INC ;NO FL 

ADD #20,R1 INCREMENT TO THE NXT SURFACE 

MOV R : THIS IS WHAT 

I : INCREMENT 

BR G0, DO NX 

#40,R1 INCREMENT TO NXT CYL 

MOV R : POSITION 

INC :EXPCTD RKDA 

CLR R3 

INC RY HAVE U FORMATTED ALL 203 CYLINDERS 

BNE 1$ IF NOT, LOOP BACK 8 FORMAT THE 


?NEXT CYLINDER 


j SERRERBESEEEC ORES ASOT ECS TDaNAT® FOR TE ENTIRE DI 


‘TEST 2 


CHECK *READ FORMAT’ FOR THE ENTIRE DISK 
“THIS TEST READ FORMATS THE ENTRE plax WHICH 


WAS W 
jd gl IN THE PREVIOUS TEST. THE FOLLOWING SHECKING 
el. ENTRE ROY SETS WITHIN A CERTAIN TIME ON COMPLETION 
:*0F FUNCTION 


;#2. IF *"SIN’ OCCURRED? 
583. 4 ’HE’ OR "ERR’ OCCURRED? 
;#4. RKDA ENTER i 


ele SECTORS (1 CYLINDER) ARE READ AT A TIME. IF ‘SIN’ 


MO-11-DZRKK-E, RK11 BASIC LOGIC TEST 2 MACYI1 ee} O7-JUL-77 09:38 PAGE 68 
DZRKKE.P11 Q7-JUL-77 09:37 Te4 CHECK READ FORMAT’ FOR THE ENTIRE DISK 


3606 s#OCCURS A DRIVE RESET IS DONE BEFORE READING THE NEXT 
3607 i arts ot 1S DONE IN HIS ORDER CYL Wt o-8uh 0 0; 

ta li---- -CYL 312-SUR 1. « enrestiNg St LLATOR, ONLY 
Esti OE cree CYLINDER (312), LAST SECTOR (13) SRP ACE | 1S’ READ. 
3%1l1 eccceel nc eeesasa er eeenassiesheteseusncecnesseshonsenessesees 
3612 011000 ooo004 +éT24: SCOPE 
3613 011002 Ole737 000001 001206 MOV #1, STIMES ::D0 1 ITERATION 
314 O11019 Ole737 011074 001110 MOV #1$, SLPERR iSET RET URN ORES FOR LUPING 
3616 011018 005037 001356 CLR INDX1 !INDX1=0, SURFACE 0 BEING READ 
3617 INDX1=1' SURFACE 1 BEING READ 
3618 011022 013701 001350 MOV DRIVAD,R1 !GET DRIVE ADRES 
3619 011026 010102 MOV R1, Re 
3620 011030 005737 001344 TST SIMUL - TESTING ON SIMULATOR? 
3621 011034 001410 BEQ 12% : NO H 
3622 011036 OS2701 014533 BIS #14S33,R1 iget gPLTS FOR FOR CYL 312, SEC 13, SUR 1 
23 CHECK ONLY CYL’ 3l2, 
3624 Orc TOR eh Barr Ae 
3625 011042 OS2702 014540 BIS #14540, Re : RKDA INCRMNT TO THIS AFTR 
3626 "RO FMT OF 1 SECTOR 
3627 01104 012737 177777 001370 MOV #-1,EFLGI ;SET COUNT FOR READING HOR 
3628 “FROM 1 SECTOR ONLY 
3629 011054 000407 BR 1S 
3630 011056 012705 177465 12$: MOV 43313 RS ;SET UP COUNT FOR 203 CYLINDERS 
3631 011062 012737 177764 001370 MOV #-14,EFLG1 *SET COUNT FOR le HORS TO BE 
3632 : READ FROM E EACH CYLINDER 
3633 011070 O62702 oD0020 ADD #20, R2 s THIS IS WHAT RKDA SHOULD INCREMENT 
3634 AFTER ’RO FMT’ OF EACH CYLINDER 
3635S 011074 104413 1S: CNT. RESET 80" ONTROL RESET 
3636 iTHts | TS A CALL FOR IME *CNTRL- 
3637 RESET’ ROUTINE. A CONTROL RESET IS 
3638 i eet eD AND AFTER A CERTAIN TIME 
3639 ;1F THE "CNTRL ROY’ DOE 
3640 RROR IS REPORTED. NOTE THAT 
3641 :THE PC IN ERROR MESSAGE IS THE 
3642 PC WHERE *CNT.RESET’ IS LOCATED. 
3643 ‘THIS IS A VERY BASIC ERR 8& IF IT 
3644 OCCURS GO BACK TO TEST 10 
3646 011076 104421 TST.SIN ;CHECK IF SIN IS SET 
3647 IF SET DO DRV-RESET TO CLR IT 
3649 011100 012702 033336 MOV 8OUTBUF , R3 ;STORE ADRES OF BUFFER 
3650 011104 005037 001360 11S: CLR INDX2 
3651 011110 010377 170222 MOV R3, IRKBA sBORES To WHICH DATA IS TO BE X-FERRED 
3653 011114 013777 001370 170212 MOV EFLG1, RKWC SET UP WORD COUNT FOR 12 HEADERS 
3654 TO BE READ OFF EACH CYLINDER 
3655 ‘(ONLY 1 FOR SIMULAT 
3656 011122 010177 170212 MOV R1, RKDA ADRES THE DRIVE WITH CORRECT 
3657 ‘CYLINDER & SECTOR ADRES 
3658 011126 012777 o02005 170176 MOV #2005, aRKCS READ FORMAT, GO 
3660 011134 105777 170172 2s: TSTB = ARKCS :DID CNTRI ROY SET? 


2661 011140 100411 BMI 38 YES, BRANCH 


MD-11-DZRKK-E, RK11 BASIC LOGIC TEST 2 MACY11 30(1046) 
DZRKKE. Pll 09:37 Te4 


07-JUL-77 


= RINE SBE 


011150 
011154 


011160 
011162 


004737 
010137 
104416 
104045 


001405 
004737 
010137 


104001 


004737 
104046 


020277 
001410 
010237 
104415 


017737 
104416 


104040 


104043 


001360 


020770 
001202 


001900 170134 


020776 
001170 


O2le2e 


170120 
001202 


170104 COi2de2 


001370 
160037 


001164 
001166 
001162 
080014 001162 


3$: 


4§: 


S$: 


63: 


O7-JUL-77 09:38 


PAGE 6 


69 
CHECK "READ FORMAT’ FOR THE ENTIRE DISK 


JSR 
MOV 
BRKDAY 
ERROR 


M 
BRKDAQ 
MOV 
BRKDRY 
ERROR 


| ate 


PC, GTYRG 
R1; SREG1O 


45 


#1000, JRKDS 
4§ 


PC, GT3RG 
R1,$REG3 
1 


PC , CHKHE 1 
46 


R2, JRKDA 
Re, SREGIO 


JRKDA, SREG1O 


40 


EFLG1,RO 


R1,R4 
#160037, RS 
R4, (R3) 


43 


AP ees ee PR 
‘Get aces ee WHICH 
: READ WAS DONE 


BOA" 8 BREAK CONTENTS OF 
NTO DR #,CYL,SUR,SEC BITS 
ROY DID. ER 


‘TIME OF ERROR. 
'READ FMT WAS DONE STARTING AT <DSK-ADRES? 
S INDICATED IN EROR MSGE. 


;DID ’SIN’ SET? 
im BR T RKCS ER, DS 

;GEt DISK-ADRES WHERE ‘SIN’ 
: OCCURED 

‘SIN ERROR ON DOING RD F 

:TO CYL INDICATED IN BREGS 


;CHECK IF ’ERR’ OR 'HE’ BIT IS SET, 
;IF YES, RETURN HERE. 

HE OR ERR WHILE DOING A red 
FORMAT. , NSGE GIVES 
; THE CONTENTS OF RKDA AT THE TIME OF ERROR 
:READ FMT WAS DONE STARTING AT <DSK-ADRES> 
; INDICATED IN EROR MESGE 
DID RKDA INCREMENT CORRECTLY BY 12 SEC 


;GET_EXPCTD RKDA 
TO’ ’ 8 BREAK CONTENTS OF 

'SREGIO INTO DR #,CYL,SUR,SEC BITS 

iGET RECVD RDKA 
6 10 "BDAY & BREAK CONTENTS OF 

+ FREGIO INTO DR #,CYL,SUR,SEC BITS 

; RKOA DID NOT INCREMENT BY 12 SECTORS 
AFTER RD FMT WAS DONE. ADR 

‘OF CYLINDER IN ERROR CAN BE OBTAINED 

"FROM "EXPCTD’ RODA 

:SET UP COUNT FOR le HEADERS TO B CHKD 

; CONL IF SIMULATOR) 

: GET bRIY-ADRES FROM WHERE ROFMT WAS DONE 

:GET on CYLINDER ADRES (HEADER } 

IS THE RECVD HEADER as Nhe EXPCTD? 


;GET EXPCTD HEADER WORD 
:GET HEADER WORD RECVD 


;GET THE SECTOR CoCr NO) WHICH DID 
;NOT GIVE THE CORRECT HEADER 
:DI0 NOT RECIEVE THE oe Theis HEADER 


FROM *SECTOR’ AS INDICATED 
NOTE SECTOR # IS OCTAL) 


MO-11-DZRKK-E, RK11 BASIC LOGIC TEST 2 MACY11 30(1046) O7-JUL-77 09:38 
: Te4 CHECK 


DZRKKE.P11 


011304 
011306 
011310 
O113ie2 
011316 


OoOooO0OC00NO OB0O0000 OHO 
B-- b-- bh hh b+ = Ps bb be bh pe pe ee aed 
e— — b bb bh 2 hb ps i a oe od b= b= 
2RS82 5 Re 


"07-JUL-77 09:37 


00S7e3 
005290 
001361 
004737 
104041 


021312 


001344 


001356 
001356 
000020 
o0c0e0 
0119074 
001356 
000037 
000040 
cconeo 


011074 


9$: 


10§: 


PAGE 70 
"READ FORMAT’ FOR THE ENTIRE DISK 


TST (R3)+ ; INCREMENT POINTER TO THE NXT WOPD 
IN MEMORY WHERE THE RECVD HOR IS STORED 
INC RO ‘HAVE U CHECKED ALL 12 HEADERS? 
BNE 7§ IF NOT BACK & CHK THE NX 
is Ay Ak HEADERS FOR THIS EYL TNOER 
ISR PC, CHKWC : CHECK Mat RKWC OVERFLOWED TO 0, IF 
: TURN HERE. 
ERROR 41 RKWC DID NOT <OVERELOW AF AFTER DOING 
; ROT ro MO ee CYLINDER 


; T *RKDA’ IS THE INCREMENTED 
‘KOR AFTER THE ROFMT 


TST SIMUL :TSTING ON SIMULATOR? 

BNE TST25 :-IF YES, EXIT 

TST INDX1 ‘DOING SURFACE 1 

ONE 10$ YES, BRANCH 

INC INOX1 :NO 

ROD #20,R1 INCREMENT DRIV ADRES TO THE NXT SURFACE 

ADD #20, Re THIS IS WHAT RKDA SHOULD INCREMENT 
AFTER READ FMT OF THE CYLINDER 

IMP 1$ a RD FMT THE NXT SURFACE 

CLR INDX1 

BIC #37, R1 CLR SEC, SURFACE BITS 

ADD #40°R1 INCREMENT TO NXT CYL 

MOV R1 Re ‘THIS IS WHAT RKDA SHOULD BE 

ADD #20, R2 iA TER RO FMT OF CYLINDER 

INC RS ;HAVE U DONE ALL CYLINDERS? 

BEG TST25 IT 

IMP 1$ tf NOT, LOOP BACK & READ FMT FROM 


THE NXT CYLINDER 


TEST 25" *CheCk TREAD’ OF THE ENTIRE DIS 8 8S 


CHECK ‘READ’ OF THE ENTIRE DISK 

READ OF THE ENTIRE DISK (ONE WORD PER SECTOR) IS DONE 
HAIN THIS TEST. IN A PREVIOUS TEST THE FIRST WORD OF 
'#EVERY SECTOR WAS WRITTEN LIKE A PSUEDO-HEADER (DRIVE 8 
; XCYLINDER #. SURFACE 8 SECTOR #). THESE PSUEDO HEADERS 
; Ril LL BE READ 8 CHECKED IN THIS TEST, PROVING THAT ANY 
#SECTOR CAN BE ACCESSED AND READ. 
; THE Pe LONINE CHECKING IS DONE 
He CNTR RDY SETS WITHIN A CERTAIN TIME ON COMPLETION 


FUNCTION. 
:#2. IF *SIN’ oe on 
:*3. IF_’HE’ a OCCURRED? 
;*#4. THE CORRECT FIRST WORD FROM EVERY SECTOR 
;*#WAS RECEIVED. THIS WORD REFLECTS THE ABSOLUTE 
;#DISK_ ADDRESS (ORV &, CYL 8 aun SEC#) OF THAT SECTOR. 


’ T RECT W 
:*IF *SIN’ OCCURS DRIVE RESET IS DONE BEFORE READING 
4s g NEXT SECTOR. +, IS on ein Haes gRer it SEC ont 


7 #CYL RO -> SEC O-11 CYL O E 
;#IF TESTING oN SIMULATOR ONLY LAST CYLINDER 7312), rast” 
*#SECTOR (13), SURFACE 1 IS READ. 


~ 


ND-11- "oy iia RK11 BASIC gab Ogle TEST 2 pagvad 30(104%6) O7-JUL-77_ 09: 38 PAGE 71 


DZRKKE . 07-JUL-7 3 CHECK ’READ’ OF THE FNTIRE DISK 

774 + EELSERARSELELE SERS RREES ALES REAR A ARERR SERRA SERA LAR SES AL ARAL ASS ES 
775 011410 oo0co4 té125: SCOPE 
3776 O114l2 012737 000001 001206 MOV TIMES 1 ITERATION 
3077 011420 012737 O11464 001110 MOV re scpERR aT RETURN ADRES FOR 

778 ‘LOOPING ON ERROR (SW9) 
$09 ot iase Ete = CLR ee FLAG, CLEAR WHEN READING SURFACE 0 
3781 Be WHEN READING BERPACE 1 
3782 011434 013701 001350 MOV DRIVAD,R1 :GET DRIVE ADORESS 
3783 011440 005737 601344 TST SIMUL :TSTING ON SIMULATOR? 
3784 O11444 001403 BEQ 10 : IF NOT BRANCH 
3785 011446 052701 0:4533 BIS #14S33,R1 SET ADRES BITS FOR LAST CYL (312) 
3786 O114S2 OO0404 BR 1$ ‘LAST SECTOR (13), SURFA CE 1 
3787 O11454 012700 177764 10$: MOV #-14,R0 SET COUNT FOR le SECTORS 
$788 Oll4b0 O1e70 177465 MOV #-313,R5 :SET UP COUNT FOR 203 CYLINDERS 
3730 O11464 104413 18: CNT. RESET G0, DO CONTROL RESET 
3791 THIS IS A CALL FOR THE "CNTRL- 
3792 RESET’ ROUTINE. A CONTROL RESET IS 
3793 ISSUED AND AFTER A CERTAIN TIME 
3794 IF THE ’CNTRL ROY’ DOES NOT SET 
3795 AN ERROR IS REPORTED. NOTE THAT 
37% ‘THE PC IN E MESSAGE IS THE 
3797 !PC WHERE ’CNT.RESET’ IS LOCATED. 
3798 ‘THIS IS A VERY BASIC ERR 8 IF IT 
3799 OCCURS GO BACK TO TEST 

OO O11466 104421 TST.SIN :GO CHECK SIN T 
3801 ‘DRIVE RESET tO CLR IT 
3802 011470 9005037 00135¢ 8S: CLR INDX1 
3803 011474 010377 167636 MOV R3, JRKBA ; ADRES TO mae DATA IS TO 8 X-FERRED 
3 ; 
3805S O1i500 012777 177777 167626 MOV 1, IRKWC ;SET UP WORD C 
3806 O11506 Gi0i77 167626 MOV raRK KDA ‘ADRES THE DRI va ITH CORRECT 
3807 :CYLINDER & SECTOR ADRES 
3808 011512 012777 oOO000S i&76l1e MOY spa !READ, GO 
3810 011520 195777 167606 2S: TSTB = ARKCS :DID CNTRL ROY SET? 
3811 011524 100411 BMI rY 
3812 011526 005237 00135€ INC INDX! !NO, HAVE U AWAITED LONG ENOUGH 
3813 011532 001372 BNE 2g IF NOT, LOOP BACK & WAIT FOR IT 
3814 iF YES REPORT - 
3815 011534 004737 020770 ISR PC, GTYRG GEt RKCS S,DA 
3816 O11540 910137 Odl202 MOV RI’ $REGIO ‘get DISK-AD ADRES” MRE ERROR OCCURED 
3817 O11544 id44le BRKDAY ‘GO TO ’BOAY’ & BREAK CONTENTS © 
3818 ; $REG1O_ INTO DR # a SUR, SEC BIT #5 
3619 O1:546 0404S ERROR 45 iCN TRL ROY DID NOt Set AFTE ER DOING 
3820 al LORD READ FROM SEORES 
3821 ;INDICATED IN pro eo Ree, 
3822 :*RKDA’ IN EROR MSGE GIVES THE 
28e3 CONTENTS OF RKDA AT THE TIME OF ERROR 
3825 011556 032777 OO1000 1&7S55C 38: BIT #1000, JRKDS :DID ‘SIN’ SET? 

826 O11556 001405 BEG 4 iQ, BRANCH 
3827 O11560 004737 020776 ISR PC, GT3RG GET RKC 
3828 011564 010137 001178 Mov R1\SREG3 set DISK- RRS” HERE SIN OCCURED? 
3629 011570 10400: ERROR SIN’ ERROR ON DOING READ FROM 


SLA AL SG OE YR Te Bt BBE” 


011872 
011576 


OOOOVOOOO00NO O0000 
SRotwNses REOEE 


=e 


— 
<= 


004737 
LO4O4E 


104044 


104037 


pore 


001262 


021222 


a 


162 
ties 
1156 


& 


167514 


001i6e2 
167502 


001344 


bo008? 
000020 


o0004o 


001164 


4§: 


S$: 


6$: 


73: 


9s: 


JSR 
ERROR 


PC , CHKHE | 
46 


4 (R3) 


fi 


44 


Rl. JRKDB 


1, $REGO 
a $REGI 


: 
; 
; 


gD gs ae pe eR IN $REG3 
an ee IF on md BIT IS SET, 


Eten 
ARE RR UIE xc 


CORRECT DATA WORD 


a Bare TREC 


RKDB REE On oN READ. 
FOR RK1IC. AFTER A READ RKDB 
; CONTAINS GHECKSUM FOR THE SECTOR 


;READ. 

:WHEREAS FOR RK11D, AFTER READ 
; RKDB CONTAINS THE’ oy WORD 
;READ FROM THAT SECTOR & 


;X-FERRED 


D TO MEMORY 
: TESTING ON SIMULATOR? 
-IF YES, EXI 
tne CREMEAT TO ADRES NEXT SECTOR 


Rot, CUP BAK & chk THE NXT 


uF YES’. 

"RESET THE COUNT FOR le SECTORS 
;CLEAR SECTOR, SURFACE BITS 

; DOING SuRF ACE 1? 


INCREMENT THE pores TO NXT SURFACE 
G0 READ SURFACE | 


; INCREMENT TO NXT_CYL 
:HAVE U CHKD ALL 253" CYLINDERS 
IE NOT, LOOP BACK 8 CHK THE NXT CYLINDER 


RAPER ERAAAERRERARREEREEEERRERAERERAAEA RE RERER ER ERE LTTE TEER EES 
CHECK ‘SEEK’ FUNCTION, WITH DIFFERRENT VELOCITY MODES 


; TEST 


et 


Beatke” oBttK- + + BK}, OF875t 987° past: Meg ee seeK LN TION. ity OFFERRENT VELOCITY MODES 


;# JH T K K IN DIF 
3888 i ole t oF IY, ERREYT YELQCA AL, re Vetoe Ties deck IS DONE 30TH 
333 + MILE DOING ¥ pine ran ‘e,cHeor, THE OPO SEs 6 BORE” Fat § StS inc toe 
#7 ITIONING LOGI 

38931 7 04 ; CH Malgadpeananag (4 geben spataaeadapae te 5 1554). 

ll : 

Bt 1238 pogo ooo00s 901206 Sav #5, STIMES -D0 S ITERATIONS 
3H 011726 O12703 001372 MOV #StEKO,R3 i ENITEALIZE POINTER TO THE FIRST 

011732 005037 001356 CLR INDX1 PEEK F ORE O INDICATES SEEK IN FWD DIRECTION 
3897 : WHEN 1 INICATES SEEK IN REV DIRECTION 
3898 011736 013700 001332 MOV RKCS, RO 

011742 013701 001326 MOV RKDS-R1 
3900 011746 013702 001330 MOV RKER: Re 
3901 011752 012737 011760 001110 MOV #15, $LPERR +38 RETURN ADRES FOR LUPING ON 
3903 011760 oo00240 1$: NOF 
3904 011762 104413 2s: CNT.RESET ;G0, DO CONTROL RESET 
3905 ‘THIS IS A CALL FOR THE ’CNTRL- 
3906 ‘RESET’ ROUTINE. A conTROr RESET IS 
3907 ‘ISSUED AND AFTER A CERTAIN TIME 
3908 IF THE ’CNTRL RDY’ DOES NOT SET 
3909 ‘AN ERROR IS REPORTED. NOTE THAT 
3910 ‘THE PC_IN ERROR MESSAGE IS THE 
3911 "PC WHERE ’CNT.RESET’ IS LOCATED. 
3912 _. ..  #]HIS IS A VERY BASIC ERR & IF IT 
9! . CCURS GO BACK TO 1 
814 011764 10442! TST.SIN !G0, CHECK IF SIN IS SET, IF SET 
3915 :DO'DRV-RESET TO CLEAR IT 
3319 
3918 011766 013704 001350 MOV DRIVAD, R4 ;GET DRIV-AORES 
3919 611772 051304 BIS (R3),R4 ‘SET CYLINDER BITS 
3920 011774 010477 167340 MOV RG aaa ‘ADORS THE DRIVE 
$321 012000 012710 000011 MOV gil,a :SET *SEEK’, ’GO’ 
3923 012004 104412 CHKCRDY ;GO CHECK IF CONTROL ROY IS SET 
3924 IF S IP THE MESSAGE. 
3925 012006 104021 ERROR 21 :*CNTRL _RDY’ DID NOT SET AFTE 
3926 ‘SENDING CYL ADD TO THE ORIV, "ADD ACK’ 
3927 FROM DRIVE SHLD HAVE COME BA 
3928 ‘THEREUPON SETTING *CNTRL RDY’ 
3929 012010 ooso0s 4S: CLR RS 
3930 Ol2e0l2 032711 oo0100 cs: BIT #100, 9R1 ;DID R/W/S RDY SET? 
3931 Ole016 O01005 BNE 6S ;YES, BRANCH 
3932 012020 005205 INC RS AIT. 
3933 Ole022 001373 BNE c$ WAITED L ONG? 
3934 012024 004737 020770 JSR PC, GTYRG :G0, GET URKe CS, ER, DS 
3935 012030 104026 ERROR 26 ?R/W/S RDY ‘bib FR Set at 
3337 12032 032711 001000 6S BIT 1000, dR1 sCOMPLETION GF ner 

: #1000, ; 

3938 pisie 0014 BEQ 7§ iNO, 
3339 012040 004737 020770 ISR PC, GTHRG 0, cE, on ER, PS, OF 
394] seat 493004 140000 7$: Efe #140000, 2RO sik ane EEK, 


BORRRECATYYE- oBE}A, SBS B gr GHC TEST BETTE eR seek: 


3997 


0120Se 


BiS8ed 


b= b+ b= b— b— b+ Ob = bh PO Pr Bb ban b= be he 


roe 


Ol2236 
012240 


ge 


4043 


03 
001251 


oococ4 
0127237 


020770 


000210 


ai 


167230 
001162 
167216 
167206 
033336 
Aceee 

00s 
033336 
001162 


ieREE'S 


001356 


001400 
001356 


001370 


ocO00s 


001162 


001166 


001206 


9S: 


10S: 


118: 


12S: 


ERRor 


8$ 
Bg. GTYRG 


#210, aR0 
9$ 


JRO, SREGI 
4216, $REGO 


R4, ARKDA 
$REGO 
anion, SREG1 


R4, JRKDA 
wOUTBLF gran 


aes aRO 


1 deaoitcad 
$REGO 
Sah Bice 


INDX1 


)+ 
sSEEK2+2,R3 


INDX1 
-(R3) 


-(R3) 
#SEEKO-2,R3 
1$ 


7-JUL-77. 09: 
UNCTION, 


3 PaeE 74 
WITH DIFFERRENT VELOCITY MODES 


Daa Gl PRE? 8: PP up 


5 eS TO cL AS INDICATED 


oe RKCS STILL CONTAIN THE ’SEEK’ FNCTION 
: chkcs RECVD 
aay S 

eg OULD CONTAIN THE ’SEEK’ BITS 


nf RKDA CHANGE? 
"YES, GET EXPCTD? 
:RKDA CHANGED AFTER DOING SEEK 


;ADRES THE DRIVE,SEC 0 
:READ ONE HEADER INTO THIS 


Y 

CT READEYR READ (FROM 
;CYLINDER TO WHICH SEEK WAS DONE BEFORE) 
;STORE SEC # FROME WHERE HOR WAS RD (0) 


THRONG HOR LIAS RECVD FROM CYLINDER (ADRES 
iN ‘Ware il READING Ho# 
+ OEEK IN REVRSE. DIRECTION? 


iy a 
TREREMENT PTR TO NXT SEEK ADRES 
: DONE WITH Aut. SKS IN FWD DIR? 


:N 

‘SET FLAG INDICATING SK IN REVRSE 
;POSITION PTR TO NXT SK IN REV 
:DONE WITH ALL? 

‘IF NOT, DO NXT ONE 


+ EELLEAERLAAAALARALAA RASA AALAAELAALAAL SASL RELA LARA LARELALLLREALED 


 ETEST at 


8 SCHEEKEB Tr Tre weno eRe BROUGHT BACK 


VED" oF Test ING. 


HEADS ARE PUSITTONED ON THE LAST CYLINDER (DOING 


Yo8 Br 
T THE CORRECT WORD 
oN TSTMULATOR THIS TEST IS SKIPPED. 


Frets NREC Pe 
PUTT E TS SUUTERTTTTETTTETUTTTTTTESTTETTTETTeTtTre etter t ert Teli tes 


té727: 


MOV 


#S,STIMES 


;;00 S ITERATIONS 


ca 
‘a 


6 
SOSAAEORPEK-E. GBK}A BASIE LOGIC TEST 2 BAGYI) 3Q UO Oe eee eROM CAST CYLINDER 


737 «001344 -R U_ON_A SIMULATOR? 
33a Bt $833 BRT; 34 Bae PML iON 9 
wOOL 012260 a13751 en oe ONT “sr CONTROL RE 
4 BOK: F CNTRL- 
4 ‘lay ROUTINE. GR IKE anc Neer 1S 
4904 SSUED AN AND AFTER A CERTAIN TIME 
aoe 4 a NER BO TER Rote THAT 
400 see MESSAGE IS THe 
a3 Sts § RY PeedsgPae UF ft 
4011 012262 ooso000 CLR RO 
4012 012264 012703 033336 MOV #OUTBUF , R3 as WHERE DATA WILL BE READ INTO 
4013 012270 013704 901350 MOV DRIVAD, R4 
4015 Olee74 O1040S MOV RY, RS 
4015 012276 052708 014500 BIS #14500, R5 :SET cy ORES 312 (OCT AL) NDER 
at Bisate 819325 182036 167020 aM 8-1, JRKWC i ADR 1 HBB 
4018 012314 010377 167016 MOV R3, JRKBA INTO THIS MEMORY ADRES 
1920 012320 012711 oo0005 MOV #5, aR1 READ, GO 
4 o12 ooso00 CLR RO 
4 O1e3¢6 104414 1S: ENT. RDY sTHIS IS A CALL FOR CN.RDY ROUTINE 
4024 s WHICH WAITS FOR CNTR ROY TO SET. 
4025 A RETURN IS MADE AFTER CNTRL RDY 
4026 iSETS. If JAITHIN A CERTAIN Tine 
Mir S yoOoreN one aT TiN. 
4aSe Ss eral 20) 7 “aa fas 
Se Gee pers + oe oe TSO AR Be comer. 
dps Bisaas Bide3 cole BEY «Re. SREGO ‘B. EXPE TD 
4033 012340 011337 OO1164 MOV JR3, SREGL :GET WORD RECVD 
4034 012344 910537 001166 MOV RS, $REG2 GET DSK-ADRES FROM WHERE WORD WAS READ 
403S 012350 104044 ERROR 44 ‘DID NOT READ BACK CORRECT WORD FROM 
4036 ‘LAST CYL, SEC O. IF TEST 4S & 46 
4037 j HERE SUCCESSFULLY DONE THIS 
4038 !ERROR MEANS THAT IMPLIED SEEK 
4039 :TO CYL 312 COULD NOT B DONE 
4040 012352 012711 oo0015 38: MOV #15,9R1 ‘DRIVE RESET, GO 
4041 012356 104414 CNT.RDY ‘THIS IS A CALL FOR_CN.RDY ROUTINE 
4042 ‘WHICH WAITS FOR CNTRL RDY TO SET. 
4043 tA RETURN IS MADE AFTER CNTRL ROY 
4O44 ‘SETS. IF WITHIN A CERTAIN TIME 
40 :CNTRL SN’T R 
4O46 !MESSAGE IS GIVEN. WAITING T 
4047 :893 MS FOR 11/20, 175 MS FOR 11/45 
4048 012360 ooso000 CLR RO 
4049 012362 032777 OODL00 16&726 4S: BIT #100, 3RKDS ;DID R/W/S RDY SET? 
4050 012370 OO1011 BNE c$ YES, BRA 
4051 O1e372 O12702 177763 MOV #-15,R2 ‘IF U R ON A SLOWER MACHINE 
4OS2 012376 O0Se02 INC R2 :& DO NOT NEED SUCH A LARGE MACHINE 
4053 012400 001376 BNE 2 “TIME LOOP, CHANGE THESE 3 


BOR AEORRAK-E. (BK YI BASIE LOGIC TEST 2 MAGYIL 3OCICHO IGE RESET FROM CAST CYLINDER 


e OR 


4057 
4058 : THE TOTAL oA FOR THE ABOVE 
4 ;LOOPS (WZ0 TING ’NOP’S) IS 
4060 5304 MS 
406 1061 MS FOR ee WITH MOS 

:OR BIPOLAR MEMORY 
4 012402 o0S200 INC RO *WAITED LONG? 
4064 012404 001366 BNE 4§ :IF NOT, LUP BAK & WAIT 
4OeE 012406 004737 20770 JSR _—-PC,, GTYRG iT YBeeS ER DS, DA 
4067 Ole4¥l2 104026 ERROR 26’ *R/W/S ROY vei NOT SET AFTER 
4068 :DOING DRIVE RESET 
4069 012414 032711 140090 S$: BIT #140000, dR1 ‘DID HE OR ERR BIT SET? 
4920 012420 001403 BEQ 6$ IF NOT, BRANCH 
4072 g1evee 004737 020770 ISR BC, GTHRG ;GET_RKCS ER, Nea ERROR oft SSAGE 
1853 sme Hee? ERGr Last CYLINDER 
4075 012430 o0S20s 6S: INC RS :POSITION RS TO EXPCTD RKDA 
4076 1 020577 166702 CMP Re, JRKDA OID THe CYL ADRES BITS IN RKDA GET CHANGED? 

l 1406 BEQ 75° : 

4078 O12440 010537 O0116e MOV RS, SREGO ; Get EXPCTD RKDA 
4079 012444 017737 166670 001164 MOV gRKDR, $REG1 GET _RKDA RECVD 
4980 O1e4s2 104054 ERROR sce 8 BORES BITS IN RKDA 
4082 : DRIVE "REST, FR EFRON LAST CYLINDER 
4083 o124s4 912777 177777 166652 7S: Mov a1 BRKUC neyo ‘ - 
ides 1s ipe Bt 77 teppaP MOV RY’ KBa FROM s tile Bee BORES-CYL 0, SEC O 
4087 012472 012711 oo000s MOV #5, aR1 al GO 
4089 01 ooso00 CLR RO 
4090 pise78 109414 Q$: CNT. RDY THIS IS A CALL FOR CN.RDY ROUTINE 
4091 WHICH Watts FOR CNTRL RDY SET. 
3 waa: Nake 
409 eef IF WITHIN A CERTA 
4094 :CNTRL RDY DOESN’T SET AN E 
4095S ‘MESSAGE IS GIVEN. WAITING TIME 
4096 : 883 MS FOR 1 20) 47 175 MS FOR 11/45 
4097 012502 o20413 9g: CMP RY. aR3 has 7 CORREC D READ? 
4098 012504 001407 BEG TSt30 YES "Ey IT 
4099 012506 010437 O01162 MOV RY, SREGO t AET EXPCTD WORD 
4100 012512 011337 001164 MOV IR3, SREGL !GET WORD RECVD 
4101 012516 010437 OO1166 RY, $REG2 GET DISK ADRES WHERE ERROR OCCURED 
4102 O12522 104044 ERROR 44 ‘DID NOT READ CORRECT WORD FROM 
4103 CYL O 0. IF TEST 4S & 46 
4104 ‘WERE SUCCESSFULLY DO 
4105 “ERROR COULD MEAN THAT DRIVE -RESET 
1106 ‘DID NOT BRING HEADS BACK 
4108 


4109 5 RRRARREREREEEREA RASS RRARRE SELLA REL EARALEAAAAAEREEERRERER EEE RED 


Oe OgRe RKK-E, + PKG, BBSTE LOGIC TEST 2 oll 30; bee. 2 ayn y 


£WM-OwWOnou 


frururoruru 


012530 
012532 


Olebe4 


oooco4 
104413 


104421 
0!3704 


001332 


033336 


177400 


177400 
033336 
001350 
000003 


020776 


166534 
166530 
166524 


09: 38 


PAGE 77 
256 WORD BLOCK ON SECTOR 0, CYLINDER O 


BES) ub ‘bebe rr 


ST SNE ELON DER abe ese on 
HBL Scx! "wits Be PRE Us Ose SP i CIEE MEP Rel" WRITTEN 


rsaseesbeenseunsuseeuseusesuneesneusieaneanenaanssntiessanesasy 


+8130: 


1$: 


es: 


PE 
ESET G0, DO CONTROL 
‘THIS IS A CALL FOR THe ’CNTRL- 
RESET’ ROUTINE. A CONTROL RESET IS 
ISSUED AND AFTER A CERTAIN TIME 
if THE ’CNTRL ROY’ DOES NOT SET 
AN ERROR IS REPORTED. NOTE THAT 
‘THE PC_IN ERROR MESSAGE IS THE 
TH Ee VERY Ree TC seat GE IF 1 
Ree co BAEK FO TE sf. i 
TST.SIN : CHECK Fe SIN fs SET 
DO DRIVE RESET TO cLEAR i 
MOV RKCS, RY 
-THE FOLLOWING CODE IS FOR SETTING 
UP THE {70 BUFFER IN MEMORY (STARTING AT 
:OUTBUF), WITH A PARTICULAR 256 WORD PATTERN 
;STARTING FROM T RST WORD IN BUFFER 
;THE LO BYTE WILL BE A COUNT PA 
0 TO 25S (DECIMAL). WHEREAS THE 
‘HI-BYTE WILL BE THE COMPLEMENT OF LO BYTE, 
!@ DECREASING COUNT PATTERN FROM 2SS TO 0. 
:T.£. THE BUFFER WILL LOOK LIKE: 
: OUTBU (1 I11 111 1 00 000 O00) 
: OUTBUF +2 (1 111 111 0 00 O00 O01) 
‘LAST WORD (0 000 O00 O 11 111 111) 
MOV #OUTBUF , RO 
MOV #177401 RI PATTERN GENERATING NUMBER 
MOV #-400 ‘SET UP COUNT FOR 256 WORDS 
MOV 1177400 R3 ‘SET UP THE FIRST PATTERN TO 8 WRITTEN 
MOV R3, (RO)+ SET UP FIRST WORD IN 1/0 BUFFER 
INC R2 : INCREMENT 
ADD RI,R3 ise UP NEXT WORD PATTERN 
MOV R3; (RO)+ ITE IT IN NXT I/O BUFFER WORD 
INC R2 ‘HAVE U WRITTEN ALL 256 WORDS 
BNE 1§ IF NOT GO & WRITE NEXT PATTERN 
MOV #-400, IRKWC ;WRITE 256 WORDS 
MOV #OUTBUF,JRKBA  ;STARTING FROM THIS BUS ADRES 
MOV DRIVAD,YRKDA § :T0 THIS DISK ADRES, CYL 0, SEC 0 
MOV #3, OR4 sWRITE, GO 
TSTB. sR : WAS CNTRL RDY CLEARED AS GC WAS SET? 
BPL 3$-2 YES, 
JSR PC, GT3RG ‘GET Recs ER, DS 


MD-11-OZRKK-E, RK11 a be LOGIC TEST 2 MACY11 30(1046) 07-JUL-77 09:38 PAGE 78 
DZRKKE. Pll ‘O7-JUL-77 09:37 T30 ’WRITE’ - 256 WORD BLOCK ON SECTOR O, CYLINDER 0 


4 012630 104030 ERROR 30 sGTRL AOL, DID NOT CLEAR AS GO WS SET 
4168 

4169 012632 o0S002 CLR R2 

4170 012634 105777 166472 3S: TSTB  aRKCS :DID CNTRL ROY SET? 

4171 O1e640 100411 BMI 4g * YES 

4172 Oles42 O0S202 INC R2 WAITED LONG ENOUGH? 

4173 012644 001373 BNE 3$ A NOT, LUP LUP BAK & WAIT 

4175 01264 004737 020770 JSR PC, GTYRG GET ERED ER, DS, DA 

4176 Ole6S2 013737 001350 001202 MOV DRIVAD, $REG1O ert The STAR 

4177 012660 104416 BRKDAY BEAK oh Me ORTENTS OF -SREGIO INTO 

4179 Ol2e662 104031 ERROR 31 CNTRL. RDY bb NOT SET ON COMPLETION 
aiet iF bate FOR MSGE be ie “aah ee 
4182 : CONT NTS_OF RKDA AT T OF _ERCE 
4183 : DONE STARTI ME ek. RES> 
4184 INDICATED IN EROR MSGE 

4185 012664 004737 021230 4g: ISR PC, CHKHE ae “ERR OR He’ BIT IS SET, 
4187 012670 104032 ERROR 32 R ERR BIT SET ON_OOING WRITE OF 
4189 sh Darth or <DSK-ADRES> 
4186 a a acne, “a ari 

4192 TEN See ar See TIE OF EROR 
4193 012672 020077 166440 S$: CMP RO, IRKBA br "Aa ee CORRECTLY? 

4194 012676 001406 BEQ <¥ 

a 2 en ae ee ers 

sg? Bt 5303 104035 ERROR 3 fat ‘DID el name co cTLY. 

4199 ‘OF y CYL O 
4260 012714 004737 021312 , 65: JSR PC, CHKWC CoE KE AME OV ot EPP oneD TO p° 

He0e 012720 104034 ERROR 34 irae OTD NOT OVEREL OM, » AFT ER 8 ci 
4204 012722 004737 021256 7$: JSR PC, CHKDA CHECK TF. RKDA INCREMENTED CORRECTLY, 
oy Re eee se EHP Sloe ned Bee o 
4208 012730 004737 021336 8$: JSR PC, CHKER CHECK TE ANY BIT RKER IS SET’ 
4210 012734 104036 ERROR 36 :RKER BIT SET _ON DOING WRITE ON 

W212 012736 022714 oD0202 9S: CMP #202, ORY ‘DOES RKCS STILL CONTAIN THE WRITE BITS? 
4213 Oie74e 001406 BEQ TSTal >-YES, EXIT 

4214 012744 012737 oOO0202 o01162 MOV #202 SREGO GET EXPECTED RKCS 

4215 Ole7S2 011437 OO1164 MOV RY, $REG :GET RKCS RECVD 

4216 012756 104024 ERROR 24 :RKCS DID NOT CONTAIN THE "WRITE’ 

4217 ‘BITS AFTER THE FUNCTION WAS DONE. 

4219 

4220 + LELEEERREL ELA REAE AERA EAA ERAR LAA A SER ERA EAA RA LAE REL E RRAAAERARAL ARE 


4221  RTEST 31 CHECK THAT WRITE WAS DONE CORRECTLY 


MO-11-DZRKK-E, RK 


DZRKKE.P11 


012760 
012762 


11 BASI 
O7-JUL-77 


ooooo4 
104413 


¢ LOGIC TEST 2 nACY 1 30( 1046) rte PAGE 79 
09:37 T31 CHECK THA E WAS CORRECTLY 
;#THIS TEST CH cif JF THE “BITE? obenit 256 WORDS DONE IN PREVIOUS 
-#TEST I SEQUENCE OF OPE IONS IS AS FOLLOWING: 
:#1) DO A RE OF sb OR O, CYLINOER 0 
* ONTO A BLFFER ARTING AT ’ 
#2) COMPARE 8 CHECK THE DATA THA gto (STARTING AT ‘OUTBUF’) 
ay Rebar tn te Te GEIR aN Bre PH prs, oo 
: WITH DATA THAT na Bah 0 HAVE BEEN WRITTEN 
; i, netenesenaapepcemamaggenneermeatt 
SET DO CONTROL RESET 
‘fats IS A CALL FOR THE *CNTRL- 
RESET’ ROUTINE ONTROL RESET IS 
ISSUED AND AYER’ CER A CERTAIN TIME 
‘TF THE ’CNTRL S NOT SET 
:AN ERROR IS REPORTED NOTE THAT 
‘THE PC_IN ERROR ME IS THE 
"PC WHERE ’CNT.RESET’ IS LOCATED. 
‘THIS IS A VERY BASIC ERRS IF IT 
“OCCURS GO BACK TO TEST 10 
TST.SIN ‘CHECK IF SIN IS SET, IF SET 
00 DRIVE RESET TO CLEAR IT 
177400 MOV #-400, RO *SET COUNT FOR 400 WORDS 
033336 MOV SOUTBUF , RI ‘TO BE CLEARED IN THE BUFFER 
8S: CLR (R1)+ ‘CLR THE 400 WORD BUFFER 
INC RO :STARTING AT *OUTBUF’ 
BNE 8S 
CLR RO 
177400 166320 MOV #-400, IRKWC ;READ 256 WORDS 
033336 166314 MOV SOUTBUF JRKBA INTO THIS ADRES 
001350 166310 MOV DRIVAD,YRKDA § STARTING FROM THIS DISK ADRES 
o0000S 166274 MOV 8S, JRKCS ;READ, GO 
166270 1S: TSTB = RKCS :DID CNTRL RDY SET? 
BMI 2s BRANCH 
INC RO ‘WAT TED LONG ENOUGH? 
BNE 1$ IF NOT, LUP BAK & WAIT 
; ERROR F YES 
020770 JSR PC GTYRG GET RKCD, ER, DS, DA 
001350 001202 MOV DRIVAD, $REGIO eet THE STARTING ADRES 
BRKDAY TO "BOAY’ & NBREAK CONTENTS OF 
BREGI 10 INTO ORV #, CYL, SUR, SEC BITS 
ERROR 45 ‘CNTRL ROY DID NOT SET AFTER READ 
‘OF 400 WORDS FROM CYL O, SEC 0 
:*RKDA’ IN EROR MSGE GIVES THE 
CONTENTS OF RKDA AT THE TIME OF EROR 
*READ WAS DONE STARTING AT <DSK-ADRES> 
t INDICATED IN EROR MESGE 
001000 is6232 2S: BIT #1000, IRKDS ?IS SIN SET? 
BNE TST 32 IF YES, EXIT 
177400 S$: MOV #-400 
177777 MOV si777be. Re 
033336 MOV wOUTBLF, R3 
177773 MOV RS 
1774C1 6$: ADD HE “Fl 


? 


( 
MO-11-DZRKK-E, RK11 = LOGIC TEST 2 MACY11 30(1046) O7- ls iam bee Hy 


DZRKKE.P11 '07-JUL-77 09:37 T31 CHECK THAT WRI 
4278 013122 029213 CMP R2,(R3) ;WAS THE READ WORD SAME AS THE WORD 
4279 ;THAT WAS SUPPOSE TO BE WRITTEN 
4280 013124 OO1414 BEQ 7$ :YES, 
4282 0131 010137 001162 MOV R1, $REGO inet FRR 8 OF WORD 
4 013132 062737 OO0401 OO0l16be ADD #401, SREGO s THAT IS IN ERROR (EXAMPLE=1 1 2-376, 377, 400) 
4 013140 010237 001164 MOV R2, SREG1 GT ? TD WORD ( (THAT WAS SUPPOSE 
4286 013144 011337 001166 MOV (R3), SREG2 :GET WORD RECVD (7 (THAT BT WAS READ 8 BAK ) 
4o87 013150 104055 ERROR 5S s010 D NOT RE ® BACK WO S WAS SUPPOSED 
4289 DEG Farah Tei 6 
4290 :WORD ® (SREGO), 
4291 013152 o0S205 INC RS 
4292 013154 001403 BEQ T5132 ; EXIT 
4293 013156 005723 7$: TST (R3)+ : INCREMENT POINTER TO NXT WORD (THAT 
4294 WAS READ BACK) 
429S 013160 9005201 INC R1 ‘HAVE U CHKD ALL 256 WORDS? 
429% 013162 001355 BNE 6$ IF NOT, LUP BAK 8 CHK THE NXT WORD 
1237 IF YES, EXIT 
4e99 jREREEEEAEHEEEESEERAESEESEERESE EEE EEERESS ST OT eee ECTOR 
4300 |  RTEST 32, CHECK 'READ CHECK’ FUNCTION - CYLINDER 0, SECTOR O 
430 ieTHTS GER, ceCTOR 0) uRITTEN IN FeO Ce tk” Lal, ‘MENGE THE TEST WHICH 
4303 + Sun war tee rhe RASA A BLOCK ae Bone NEOUS T TO THIS TEST 
4304 —eenesal nn ctertcee canbuncazcencuestessoseusesceessenseesses: 
430S 013164 Of0004 +6732: SCOPE 
4306 013166 104413 aKt RESET ;G0, DO CONTROL RESET 
4307 :THIS IS A CALL FOR THE ’CNTRL- 
4308 RESET’ ROUTINE. A CONTROL RESET IS 
4309 ISSUED AND AFTER ¥) CERTAIN TIME 
4310 ‘TF THE ’CNTRL ROY’ DOES NOT SET 
4311 AN ERROR IS REPORTED. NOTE THAT 
4312 ‘THE PC al’ ERROR NES IS THE 
4313 :PC WHERE ’CNT.RESET’ IS LOCATED. 
4314 ‘THIS IS A VERY BASIC ERRS IF IT 
4315 OCCURS GO BACK TO TEST 10 
4316 013170 104421 TST. SIN ‘CHECK IF SIN IS SET, IF 
4317 D0 DRIVE RESET TO CLEAR IT 
4318 013172 013701 001332 MOV RKCS,R1 
4319 013176 013702 001334 MOV RKWC, Re 
4320 013202 013703 001340 MOV RKDA;R3 
4321 013206 013704 001336 MOV RKBA’ RY 
4322 013212 012737 OS2S25 033336 MOV #52525, OUTBUF 
4323 013220 Ole7l2 177400 MOV #-400, aR2 ;READ CHECK 256 WORDS 
4324 013224 013713 001350 MOV DRIVAD, JR3 STARTING FROM CYL 0, SECTOR O 
4325 013230 012714 033236 MOV #OUTBUF , JRY 
4326 013234 012711 000013 MOV #13, aR1 ;READ CHECK, GO 
4328 013240 105711 13: TSTB so ORI DID CNTRL RDY GET CLEARED AS GO WAS SET? 
4329 0132042 100003 BPL $ YES, BRANCH 
4330 013244 004737 020776 ISR PC, GT3RG :GET'’RKCS, ER, DS 
4331 013250 104030 ERROR 30 ‘CNTRL ROY DID NOT CLEAR AS GO 
4332 013252 104412 2s: CHKCRDY :GO CHECK IF CONTROL ROY IS SET 


4333 ;IF SO, SKIP THE EROR MESSAGE. 


” 


MO-11-DZRKK-E, RK11 BASIC LOGIC TEST 2 MACY11 3011046) O7-JUL-77 09:38 PAGE 81 
DZRKKE.P11  'O7-JUL-77 09:37 T32 CHECK READ CHECK’ FUNCTION - CYLINDER 0, SECTOR O 
4 SET TO READ C 
4 013254 104056 ERROR Sb ‘ena ROY DID NOT uEoK oN DOING 
4336 CHECK , BRON cy SEC 0 
4337 0132 032711 140000 38: T #140000, aR1 ‘OTD RR’ “oR! T Str? 
4338 013: i Q 4 :NO, 
4339 013264 004737 020776 ISR PC, GT3RG ;G0, GET RKCS, ER DS FOR ERROR MESSAGE 
4340 013270 104057 ERROR 57 "ERR? OR 'HE’ BIT SET ON DOING 
4341 "READ CHECK’ ON CYLINDER 0, SEC 0 
4342 013272 032777 OO0002 166030 4S: BIT 82, IRKER ‘DID °CSE’ BIT SET IN RKER? 
4343 013300 001404 BEQ : NO 
4344 013302 017737 166022 001162 MOV DRKER, SRESO :GEt 
4345 013310 104060 ERROR 60 : SOFT - CSE - ON DOING ‘READ 
4346 : CHECK’ on CYLINDER 0 T 
4347 ?U SHOULD HAVE GOT ERRROR 102 ALSO 
4348 013312 005712 cs: TST aR2 :DID WORD COUNT OVERFLOW TO 0? 
4349 013314 001405 BEQ 6$ - YES, 
4350 013316 011237 001162 MOV dR2, SREGO :GET 
4351 013322 011137 OO1164 MOV JRL; SREG! ;GET RKCS 
4352 013326 104061 ERROR 61 ;WORD COUNT DID NOT OVERFLOW 
4353 ON DOING ’READ CHK’ ON CYL 0, SEC 
4354 013330 013702 001350 6S: MOV DRIVAD, R2 RK" SHOULD INCREMENT 
4355 013334 O0S202 INC R ‘TO THIS AFTER RD CHK’ IS DONE 
4356 013336 13 CMP Re, ARB *DID RKDA INCREMENT CORRECTLY? 
4357 013340 901405 BEQ 7§ 
4358 013342 010237 001162 MOV R2, SREGO ;GET EXPCTD RKDA 
4359 013346 011337 001164 MOV JR3, SREGL :GET RKDA RECVD 
4360 013352 104062 ERROR 62 RKDA O10 NOT INCREMENT CORRECTLY 
4361 :(BY 1) ON DOING ’READ CHK’ ON 
4362 CY. O 
4363 013354 022714 033336 75: CMP SOUTBUF , JR4 ‘DIG RKBA GET CHANGED? 
4364 013360 OO1406 BEG *NO, BRANCH (RKBA WON’T CHANGE, NC NPR*S) 
4365 013362 012737 033336 001162 MOV SOUTBUF,SREGO GET EXPCTD RKBA 
4366 013370 011437 OO1164 RY, $REGI GET RKBA 
4367 013374 104063 ERROR : RKBA SPONGES AFTER DOING ’READ CHK’ 
368 ;0N CYLINDER 0, SECTOR 0. SHOULD 
4369 :NOT CHANGE, FOR, NO 
4370 013376 922737 052525 033336 9S: CMP #S2525,O0UTBUF ;’OUTBUF’ SHOULD STILL RONTAIN THE 
4371 ‘SAME WORD AS IT DID BEFORE ° 
4372 "NOTE THAT AT THE BEGINING OF THis. TEST 
4373 *S2Se5 WAS WRITTEN INTO ’OUTBUF’ 
4374 013404 901412 BEQ TST33 +: YES. EXIT 
4375 ‘REPORT ERROR IF "OUTBUF’ CHANGED 
4376 013406 012737 033336 001162 MOV #OUTBUF ,SREGO ;GET ADRES OF OUTBUF 
4377 013414 012737 052525 001164 MOV #52525, $REG] ;GET EXPCTD WORD IN ‘OUTBUF’ 
4378 O1342e2 013737 033336 d01166 MOV OUTBUF;$REG2 § ;GET WORD FOUND IN ‘OUTBUF’ 
4379 013430 104064 ERROR 64 :AS MENTIONED ABOVE, IF "WRITE’ OF 
4380 +256 WORD DATA SLOCK WAS D 
4381 ; CORRECT Y BEFORE THEN THIS ERROR 
4382 ULD MEAN THAT AN NP WAS DONE 
4383 ion "READ CHECK’ 
43eS tL Seuessenenenenverseuegnenppseessnonrepeanenssseepenscreerersser? 
4386 :&TEST 33 CHECK THE "WRITE CHECK’ FUNCTION - ON CYLINDER O, SECTOR 9 
4387 ;#THIS TEST CHECKS rit UT THE BASIC 'WRITE CHECK’ LOGIC, USING THE 256 
4386 :#WORD DATA BLOCK (SECTOR O, CYLINDER 0) WRITTEN IN A PREVIOUS 


4389 TEST. THE BUFFER IN MEMORY, USED FOR COMPARISON OF DATA, IS THE 


land 
: 
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DZRKKE.P11 | O7-JUL-77 09:3 733 CHECK THE 'WRITE CHECK’ FUNCTION - ON CYLINDER 0, SECTOR O 
4390 s#ONE STARTING AT 'OUTBUF’. HENCE THE TEST WHICH WRITES THE 
4391 #256 WORD BLOCK ON THE DISK (AS WELL AS CREATING THE 2S6 
4392 #256 WORD MEMORY BUFFER) SHOULD BE DONE BEFORE THIS TEST. 
4393 PETTITT ITTTTT TTT TIT TTT TIT TTT rll TLL 
4394 013432 900004 +8133: SCOPE 
4395 013434 104413 CNT. RESET ;G0, 00 CONTROL RESET 
4396 ‘THIS IS A CALL FOR cate "CNTRL- 
4397 ‘RESET’ ROUTINE. ROL RESET IS 
4 ‘ISSUED AND AFTER My CERTAIN TIME 
4399 ‘IF THE ’CNTRL ROY’ DOES NOT SET 
4490 !AN ERROR IS REPORTED. NOTE THAT 
4401] ;THE PC IN ERROR MESSAGE IS THE 
4492 "CNT.RESET’ IS LOCATED. 
4493 ‘THIS IS A VERY BASIC ERRS IF IT 
4404 “OCCURS GO BACK 10. Test 10 
440S 013436 104421 TST.SIN ‘CHECK IF SIN IS SE SET 
4406 :D0 DRIVE RESET TO CLEAR IT 
4407 O13440 013701 001332 MOV RKCS.R1 
4408 O13444 012700 177400 MOV #-400, RO 
4409 013450 Ole702 033336 MOV SOUTBUF , Re 
4410 013454 012703 177777 MOV 8177777,R3 
4411 013460 703 177401 1S: ADD #177401_R3 
4412 013464 010322 MOV Ra. (R2)t 
4413 013466 O0S200 INC RO 
4414 913470 001373 BNE 1$ 
4415 013472 012777 177400 165634 MOV #-400, IRKWC ;WRITE CHECK 256 WORDS 
4416 013500 012777 033336 165630 MOV #OUTBUF QRKBA STARTING AT THIS BUS PORES 
4417 613506 013777 001350 165624 MOV DRIVAD,RKDA § :WITH THIS DISK DATA BLOCK (CYL Q, SEC 2) 
Hig 013514 012711 000007 MOV oe SRT WRITE CHECK, GO 
4429 013520 000 CLR :GIVE SOME TIME 
4421 013522 105711 23: TSTB ss ORL !DID CNTRL RDY CLEAR AS GO WAS SET? 
q53 pb 3eoe Withee 020776 OER PC, GT3RG CET BRO ER 
? ; 
4424 013532 104030 ZBROR :CNTRL Gy Ff Ns) iat CLEAR AS GO WAS 
4425 :SET TO DO WRITE CHECK 
4426 013534 104412 33: CHKCRDY :GO CHECK IF CONTROL ROY IS SET 
4457 !IF SO, SKIP THE EROR MESSAGE. 
4428 013536 104065 ERROR 65 :CNTRL RDY DID NOT SET AFTER 
4429 ‘COMPLETING WRITE CHECK ON 
4430 :CYLI 0, SECTOR O 
4431 013540 032711 140000 4$: BIT #140000, aR1 ;DID HE OR ERR B1T SET 
4432 013544 901403 BEQ :NO, 
4433 013546 004737 020776 JSR PC, GT3RG ;60" GET RKCS ER DS FOR ERROR MESSAGE 
4434 0135S 104066 ERROR 66 ‘HE OR ERR BIT se ON DOING WRITE 
4435 ‘CHK ON CYLINDER 0, SEC 
4436 013554 032777 OOD001 16SS46 SS: BIT #1, IRKER :DID WCE SET IN RUER® 
4437 013562 001403 BEQ 
4438 013564 004737 020776 JSR PC, GT3RG tyes GET RKCS, ER, DS 
4439 913570 104067 ERROR 6&7 ‘WCE ON WRITE CHECK OF CYL_O, SEC 0 
4440 ‘NOTE THAT IF A PREVIOUS TEST 
4441 8 THEN COMPARED WITH MEM 
4442 ‘TO SEE IF IT WRITTEN 
4442 ‘DONE RIGHT BEFORE, THIS ERROR SHOULD NOT 
$444 !HAPPEN UNLESS THERE IS A FAULT IN T 


4445 :COMPARING LOGIC OF "WRT CHK 


Lar 4 
: 
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DZRKKE.P11 -JUL-77 09:37 733 CHECK THE 'WRITE CHECK’ FUNCTION - ON CYLINDER 0, SECTOR O 
44 7 777 165536 6S: Wc VERFLOW? 
a seas BB 1406 geht ies, RRR 
ros gee ouugr unies SA? eee 
Na eT rest ERROR et, Get. RACE NOT OVERFLOW AFTER 
1 ‘WRITE CHELK ON CYL 0, SEC O 
4452 013614 013704 001350 7S: MOV DRIVAD, RY :RKDA 
W433 1 36<0 IN RY :T0 THI TER Me CHK 
1 165512 ¢ RY, ARKDA :DID RKDA INCREMENT CORRECTLY? 
quer fl f nytt 001162 ey gs $REGO NES, oft Bectp RKDA 
4y ie 017737 165500 001164 MOV gRKDA, SREGL ‘GET RKDA RECVD 
4458 013642 104070 ERROR i RKOA DID NOT INCREMENT CORRECTLY 
4459 (BY 1 SECTOR) AFTER WAT CHK ON SEC OQ, CYL O 
4460 013644 777 034336 165464 8S: CMP sOUTBUF +1000, arKba : ‘o1D RKBA INCREMENT CORRECTLY? 
4461 013652 001407 BEG EXIT 
4462 013654 012737 034336 061162 MOV sOUTSUF +1000, sreto “GET EPCTD RKBA 
4463 013662 017737 165450 001164 MOV aRKBR ,SREG1 BA RE 
4464 013670 104071 ERROR ?RKBA DID NOT INCREMENT CORRECTLY 
HBS ; (BY 1000 BYTES) boTER A WRT CHK 
4467 013672 022711 o00206 9g: CMP #206, dR1 DOES RKCS STILL CONTAIN THE WRT CHK BITS” 
4468 013676 OO1406 BEQ TST34 + YES 
4469 013790 012737 O00206 o0116e MOV #206, SREGO *NO, GET EXPCTD RKCS 
4470 013708 011137 OO1I64 MOV OR1, $REG1 ‘GET RKCS REC 
4471 013712 104024 ERROR 24 iRKCS BITS CHANGED AFTER WRT CHK 
4473 pHepeeeceecreciereeneerbeneeneenensenaeteeeeeaeraeaseces 
4474 ‘TEST 34 CHECK THAT 1A INHIBITS INCREMENTING OF RKBA 
4475 :#THIS TEST CHECKS THE BUS ADDRESS DOES NOT INCREMENT WHEN 
uI7E !#THE IBA BIT IS SET. HAT EOUENEE OF OPERATION S: 
4477 #1) CLEAR OUT 256 WORD BUFFER IN MEMORY (OUTBUF. 
4478 #2) READ FROM SECTOR 0, CYLINDER O THE 2S6 WORD BLOCK THAT WAS 
4479 :#WRITTEN IN A PREVIOUS TEST (NOTE: THAT TEST SHOULD HAVE BEEN 
4486 : BEF HIS). IBA BIT IS SET DURING READ BACK. 
4481 j#3) CHECK THAT RKBA DID NOT INCRE 
4482 #4) CHECK K THAT THE ENTIRE BLOCK WAS NREAD INTO THE SAME MEMORY 
4483 :#WORD (OUTBUF) & THE REST iF THE WORDS IN THAT BUFFER ARE © 
4484 '#AS PREVIOUSLY CLEARED OUT 
S485 GO n,n Re A, ERR eR 
4486 012714 9goc004 +8734: SCOPE 
4487 013716 104413 CNT. RESET ;G0, DO CONTROL RESET 
4488 THIS IS A CALL FOR THE 'CNTRL- 
4429 RESET" ROU UTINE, A CONTROL RESET IS 
4496 !ISSUED AND AFTER A CERTAIN TIME 
449] !IF THE "CNTRL RDY’ DOES NOT SET 
4492 :AN ERROR IS REPORTED. NOTE THA 
4493 : ERROR MES 
dats ’CNT.RES=7° IS LOCATED 
4495 ‘THIS IS A VERY BASIC ERRS IF IT 
4496 ; OCCURS GO BACK TO TEST 1 
4497 013720 104421 TST.SIN ‘CHECK IF SIN IS SET, IF SET 
4498 :00 DRIVE RESET TO CLEAR IT 
4499 013722 013701 001332 MOV RKCS.R1 
4500 012726 012700 177400 MOV #-400, RO :SET UP COUNT FOR 256 WORDS 


4501 013732 O12702 032233 MOW #OUTBUF , Re 


Salle Ro 


eeseeat § 


8 
g 


eransatats 


s 


013736 


OO NICU £ rue 
oO 
— 
5 


214026 
014032 


014034 
014040 
014042 
014046 
014054 


Ol411e 


014120 


014122 
014124 
014130 


1, BASIE Logie TEST 2 


010203 
005023 


Obi37s 
Ole 


010277 
01377 


012711 


104416 
104045 
004737 
104046 


001417 


001362 


001362 


02977 
001380 


021230 


165276 
00116e 
165264 
001000 


177400 
000377 


000377 
001164 
001350 


177773 


165360 
165352 


001202 


001164 


leSe4e 


00116e 
OO11E6 


MACY11 30¢ 

T34 aa 
MOV 

i$: CLR 


2s: TSTB 


BRKDAY 


ERROR 
3$: JSR 
ERROR 


4$: CMP 


S$: BIT 


ts: TST 
7$: INC 


~. 
. 


R2,R3 
(R3)+ 
& 


l 

8-400, IRKWC 
R2, JRKBA 
DRIVAD, JRKDA 
#4005, aR1 


COUNT 
aR} 


3$ 
COUNT 
es 


PC GTYRG 
ORI VAD, SREG1O 


45 
PC, CHKHE 
46 


R2, IRKBA 
R2, SREGO 
aRKBA, $REG1 
#1000, 2RKDS 
TST35 

#-400, RO 
#377, dR2 


6$ 

#377, $REGC 
R2)'SREG 

ORIVED, SReG2 


“4 


(Re)+ 
#-S,RS 
RO 


TST35 


¢ 
O46) 97 09: PAGE 84 
THAT IBA THnTB! 8 NCREMENTING OF RKBA 


ink oO HORY BUFFER STARTING 
9 POUTBUE: 


*READ BACK 256 WORDS : 
: INTO THIS BUS ADRES (IBA WILL 8 SET) 
THIS DSK ADRES (SEC 0, CYL 0) 
Gee 0 HAS BEEN WRITTEN IN A 
sWOTE pe TEST WITH A UNIGUE PATTERN 
‘READ, GO, IBA SET 


Pie CNTRL RDY SET? 


iteB Lone 

TED LONG ENOUGH? 
M0, EOS watt, 
:GEt Coe St STAR SRt ine * pres 

drat ache "OF $REG10 

iM y otoe hot eer a AFTER DOING 


REA 

:CHECK_IF_’ERR’ OR ‘HE’ BIT IS SET, 
IF YES, RETURN Lape 
iE NG READ FROM SEC OC, 


RR BIT SET ON DO 
;CYL Q (INDICATED eh <DSK-RDRES? } 
pA’ ROR MSGE THE 
CONTENTS OF RKDA AT Fie TIME OF EROR 
;DICD_RKBA INCREMENT” 
NOT H 
;GET EXPCTD RAR 


GET RKBA RECVD 
: BK aria i HEN IBA BIT WAS 
ie SIN SET 


:;1F YES, EXIT 
;CHECK THAT THE FIRST WORD IN 


: QUTBUF’ IS 377 (LAST WORD OF SEC 9G, 
‘CYL 0). NOTE THAT READ 5 Done 
INTO THIS SAME WD ul TH SET 
GET EXPCTD WORD ( wor 3 3 att BUFFER 
iQFT WORD RECVD D Kes bed 
ISK S WHERE ERROR OCCUR RED 
:(SEC O, CYL O LAST WORD) 
:DATA_ERROR 
:THE FIRST WORD IN MEM BUFFER (OUTBUF ) 
: SHOULD BE NON-ZERO § SHOUL ULD ONTA 
:THE LAST WORD READ BACK F cna" be 
‘CYL 0, THIS DI EN Ni THE ERROR OCCURS 
: INCREMENT poi TeR. TO THE N 0 


ALLOW ONLY S MESAGES FOR ERR 116 
:CHKD a WORDS IN THE SUFFER? 


Beate eTt* > + BK}, BBS 154 987° 7 ie aN asa ft eee te OF RKBA 


4558 


0 ‘ 
014174 


014176 


Ol42e6 


S 


mood 
~je= 


oOo 
OoO-w 
“Nt 


000094 
194413 


104421 
012746 
012746 
000062 
013701 
013700 
Ole 

012710 


001164 
001166 


000401 
001162 


000340 
Ol421e2 


001332 


000340 


TST (R2)+ 
BE ? 

CL 

MOV -(R2), $REG2 
MOV 0.R4 

ADD #401 ,R4 

MOV R4, SREGO 
ERROR 73 


INC RS 
BEQ TST35 
BR 7$ 


thie “BK CHK THE NXT Horo” 
OR” GET EXPCTED WORD - 


T WORD THAT WAS FOUND IN THE BUFFER 
; THIS yee #’ IN MEMORY BUFFER 
; D HAVE BEEN ZERO 
; THE we CrERRED (STARTING AT 


sQUT ) WAS ORE READING 
on Katee Hic I 
st Md SF ie 5a 


‘Coun 
i MOTCATED IH IN THE (roe TWEsace) ere 
‘CHANGED WHEN READ WAS DONE FROM 


;SAME MEMORY L ; 
31S OCTAL & SPECIFIES THE POSITION 
:IN THE BUFFER (FIRST WORD IS ‘WORD 8° 1) 


; EXIT 


TECK THAT RK11 INTERRUPTS WEN OE 16 SET 


;#TEST 35 


;#THIS 16s ee IT 
; #ADDRE nnd 


HAT RK1 in RRUPTS WHEN IDE 


oh ine TO ITS “BeStcnareD VECTOR 
WITH CONTROL Y SET 8 GO CLEAR 
BANGED. IF 1. HAS BEEN 


it t AT 15, HORTA RK11 Pant The hat 15 Hi BEEN Cu NOTE "RKVEC’ 


sauewelastacnetioesnelancenucsknseencensncuceqseneneenaensneied 


‘STO BE SET UP 
téT35: SCOPE 
CNT. RESET 
TST.SIN 
MOV #340, -(SP) 
MOV #64S; -(SP) 
RTI 
64S: 


:G0, DO CONTROL RESET 
:THIS IS A CALL FOR THE 'CNTRL- 
RESET’ ROUTINE A CONTROL 

‘ISSUED AND AFTER 


AN 
:THE PC IN E HE 
:PC WHERE. ’CNT.RESET’ IS LOCATED. 
‘THIS IS A VERY BASIC ERR& IF IT 
; oCCURS GO BACK TO TEST 10 
‘CHECK IF SIN IS SET, IF SET 

:DO DRIVE RESET TO CLEAR I 


;GET POINTER TO RK VECTOR ADRES 
:SET UP INTERRUPT VECTOR FOR RK11 
:SET PSW ON INTERRUPT 


7? 


BRAKE BRE: Phd, OBR gt GHC TEST ® NREVID RUE M taal RKIT INTERRUPTS WHEN IDE IS SET 


4614 O14 1057 TS aR ;WAIT FOR CNTRL RDY TO SET 
4615 O14 i 3 5 L - 

4616 O14 12711 000100 MOV #100, dR1 SET IDE BIT IN RKCS 

4617 O14e42 104420 000005 WAT.INT ,5 :WAIT FOR INTERRUPT, ATLEAST 

4618 337 US FOR 11720, 7’US FOR 11/45 

4619 014246 011137 001162 MOV JR1, SREGO : GET 

4620 O142S2 104074 ERROR 74 ‘RK11 DID NOT INTERRUPT WHEN IDE 

4621 HAS SET, WITH CNTRLE ROY SET & GO 
4e55 014254 900400 BR 1$ 

4624 014256 022626 1S: CMP (SP)+, (SP)+ ;RK11 INTERRUPTED CORRECTLY TO 

4625 ‘THIS. RESTORE a ACK POINTER 

4626 (FROM RK11 INTERRUPT) 

Hee? 014260 022626 CMP (SP)+, (SP)+ i STORE His POINTER 

4e58 014262 012777 O14276 165112 MOV #2%, IRKVEC FROM eRe” HERE is! NLTY POLLING OR INTERUPT 
4630 toate ee con INTERRUPT NIGHT OCCUR 
4631 014270 104420 o00005 WAT.INT ,5 Aa Fo INTERRUPT, I 

Hoe TO FAULTY Pore. 

Hoa 014274 000403 BR 3$ 

4636 014276 O226e6 2s: CMP (SP)+, (SP)+ ;RESTORE STACK PTR (FRO RK11 INTRUPT) 
4637 014300 Oe2be6 CMP (SP)+' (SP)+ ; REST ORE STACK PTR (FROM WAT. INT 

4638 014302 104020 ERROR 20 UNEXPECTED RK11 INTERRUPT 

4639 HSCCURED. THERE SHOULD HAVE BEEN 

4640 :ONLY 1 IN TERRUPT {19 1s ABOVE) 

4641 014304 012777 OO4600 165070 3$: MOV #BADINT, IRKVEC RES TORE VECTOR AD 

4642 ‘UNEXPECTED RK11 oh PRRUET, 

4643 014312 012746 900340 MOV #340, -(SP) 

4644 O14316 012746 014324 MOV #65$.-(SP) 

4645 014322 o00002 RTI 

4646 014324 65S: 

ueue 

4649 beer ae See Neen cK THAT ITH IDE GET PAIL INTERRUPTS PETER INT 
4650  STEST 36 CHECK THAT WITH IDE SET RK INTERRUPTS AFTER INTIATION & COMPLETION 0 
4651 ;*THIS TEST CHECKS THAT AN INTER RUPT FROM RK11 OCC URS AFTER 
4652 -#A SEEK IS INITIATED WITH *IDE’ el AND THEN COND 
4653 j SINTERRUPT OCCURS AFTER THE SEEK Bone. IT ALSO CHEEKS 
4654 ; #AF TER THE FI RST INTERRUPT ’ SCP? eit IS NOT SET, WHEREAS aPTER 
4655S ¥THE SECOND INTERRUPT "SCP’ IS SET. 

4E56 "¥THIS TEST ALSO CHECKS A PART OF THE POLLING LOGIC. 

4657 jHeeeebeseeeenteeereeneneeneneteeeeeeniaanaaseneeetetteiiaaaas 
4658 014324 oO00004 +6736 

ey atast Hac OE cues Far neKAINES 1g” 5 eG 

ape? iGo {ts ts. e CALL FOR THe *CNTRL- 

4662 RESET’ ROUTINE. A CONTROL RESET Is 
4663 : ISSUED BND ipteR A CERTAIN TIME 

4664 : HE 'CNTRL RDY’ 

4665 ?AN ERROR IS REPORTED. NOTE THAT 

4EEE : THE PC_IN ERROR MESSA 

4667 :PC WHERE *CNT.RESET’ IS TRATED. 

HEEB :THIS IS A VERY SASIC ERRS IF I 


4669 OCCURS GO BACK TO TEST 1 


° 
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Beatke® ait oft 4,993 ba! 3 T36 CHECK THAT WITH IDE SET RK11 INTERRUPTS AFTER INTIATION & COMPLETION OF SEEK 


4659 Bid3a8 649599 861326 1cyz70 Mey = BAT 9aBParxoa ;ADRES THE ORIVE 
4672 014350 004737 021500 JSR PC, DRESET 
bea 014354 104026 ERROR Rau Rls goY ‘pig, eet AFTER DOING 

75 014356 013701 001402 2S: MOV RKVEC,R1 
W676 Ol4362 O1e7e1 O144e6 MOV 838 s(RL)¢ of ie fe ee RK11 INTERUPT 
e568 Bid 4B 164740 Bry gg gt 
Sah Gino Tees SECS DY ann Shei GeD Sd HEMI 
ueeY : RoR ATER call wis RECVD 
4BB2 TING TIME= 1.4 R 11/20 
4683 3g US F 
Ho84 ERROR iF INTERUPT DID NOT OCCUR 
4686 14410 912777 go4609 164764 MOV WBADINT ,BRKVEC a UNEXPECTED RKI1 INTERRUPT 
4688 Stade radars ERROR : INTERRUPT DID NOT OCCUR AFTER 
4689 :SEEK WAS INITIATED WITH IDE SET 
4690 014424 00402 BR 3$+4 
4691 014426 Oeebe6 3$: CMP (SP)+, (SP)+ IF PKL INTERRUPTED TO THIS 
4692 i RESTORE STACK POINTER (FROM RK11 INTERRUPT) 
133 014430 O22626 CMP (SP)+, (SP)+ ; RESTORE STACK POINTER (FROM 
4695 014432 012777 O14476 164742 MOV as$ RKVEC CET uP NEW VECTOR ADRES FOR RK11 
4696 O14440 032710 O20000 BIT #20600, aR TS SCP CLEAR 
4697 OL4444 001403 BEQ YES, BRANCH 
4698 O14446 011037 001162 MOV 3ho, SREGO GET RKCS 
4699 O144S2 104076 ERROR 76 :SCP SET BEFORE SEEK TO LAST 
4700 j CYLINDER WAS DONE 
4701 O144S4 104420 056790 ug: WAT.INT ,S6700 ‘WAIT FOR DRIVE TO INTERRUPT 
4702 ‘AFTER SEEK WAS COMPLETED 
4703 *WAITING TIME=180 MS FOR 11/20 
4704 : 3 MS FOR NY He 
4705 O14460 012777 OO4600 164714 MOV SBADINT,RKVEC IT’S AN ERROR IF BY THIS TIME 
470? 14466 904737 920776 JSR PC, GT3RG jINTERRUEGO GET RKCS” ER, OS 

‘ ’ 

4708 014472 104077 ERROR 77 sRK11 D1b OOP INTERRUPT AFTER SEEK (TO 
4709 :LAST CYLINDER) WAS DONE WITH IDE SET 
4710 014474 90040) BR 5$+2 
Wi O14476 O2e626 S$: CMP (SP)+, (SP)+ 30K TF AL RK11 1 INTERUPTED 19 THIS AFTER 
4713 . ; STACK POINTER (FROM RK11 INTERRUPT) 
474 O14S00 022626 CMP (SP)+, (SP)+ RESTO ORE, STACK POINTER (FROM 
4716 O14SO2 012777 OCO4E00 164672 MOV BBADINT, IRKVEC RESTORE RK11 INTERRUPT VECTOR ADRES 
4717 ‘FOR UNE sent eer NTERUTS 
4718 Qi4S10 710 oz0000 BIT #20000, aRO ‘DID SC 
4719 014514 001003 BNE ‘YES, BRANCH 
4720 O14516 011037 o01162 OV JRO, SREGO :GET RKCS 
4721 014522 104053 ERROR 53 ‘SCP DID NOT SET AFTER RK11 INTERRUPTED 
472 ‘INDICATING SEEK WAS DONE 
4723 O14S24 017701 164576 b$: MOV JRKOS,R1 :G DS 
4724 014530 042701 017777 BIC #17777. Ri :MASK NON-ID BITS IN RKDS 
4725 014534 020137 001350 CMP R1, DRIVAD :CORRECT I0 BITS IN RKDS? 


i 
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DZRKKE.P11  07-JUL-77 09:37 136 CHECK THAT WITH IDE SET RK11 INTERRUPTS AFTER INTIATION & COMPLETION OF SEEK 
1726 014540 O01414 BEQ 7$ ;YES, BRANCH 
4728 O14S42 013746 001350 MOV DRIVAD,-(SP) | ;PUSH DRV ADRES ON THE STACK 
4729 O14S46 737 021174 JSR PC. SHFTRT GO, SHIFT RIGHT DRV 
4730 0145S2 012637 001162 MOV (SP)+, $REGO ‘GET EXPCTO ORV # 
4731 O14556 O10146 MOV R1,-(SP) ‘PUSH ID BITS ON THE STACK 
4735 OLees Oree3? Ooli64 MOV. (SPSo SReGL «= SBOP THE RECVD 1D GI 
+ ; 
4734 014570 104047 ERROR 47 : WRONG onBi re IPee CVD IN 
4735 *RKDS AFTER SEEK WAS DONE (INTRUPT 
4? :MODE). 'EXPCT’ INDICATES THE DRIVE 
4737 ;# THAT SHOULD HAVE BEEN I 
47 :ID BITS, 'RECVD’ INDICATES THE 
4739 !DRIVE #’ THAT WAS RECVD IN THE ID BITS 
4741 014572 73: 
474e 014572 012746 000340 MOV #340,-(SP) 
4743 014576 O1e746 014604 MOV #64$,-(SP) 
4744 014602 O00002 RTI 
4745 014604 64S: 
4746 014604 sou413 CNT. RESET :GO DO CONTROL RESET 
4747 014606 013777 001350 164524 MOV DRIVAD,IRKDA ADRES THE DRIVE 
4748 014614 032777 160000 164504 BIT #160000,dRKDS DID CNTRL RESET CLEAR DRIVE ID BITS? 
are oivess OI77a7 64476 001162 te SKS $REGO eh en 
1644 1 . 
4251 014632 104950 ERROR f i G61 RKDS RESET DIDN’T CLEAR THE 
4733 ;DRIVE ID BITS (13-15) IN RKDS 
4755 014634 922710 o00200 83: MP #200, RO ;WAS_SCP BIT CLEARED BY CNTRL RESET? 
es Bise4g arte gre PEDSS ies “extt 
4 14642 011037 001162 MOV RO, $REGO GET RKCS 
4758 014646 104100 ERROR -CNTRL RESET DID NOT CLEAR SCP BIT 
4524 s LRALAASLESELEALA EERE SAAR ALLA LAA LAA EAAALAA LL LEAR ALARA RLLAL AL SE 
4761 t STEST 37 CHECK THAT WITH IDE SET RK11 TANTERRUPTS WHEN READ IS DONE 
4762 s#THIS TEST CHECKS THAT WHEN A DATA TRANSFER FUNCTION IS DONE 
4763 #WITH IDE BIT SET, RK11 INTERRUPTS WHEN THE FUNCTION IS COMPLETED 
4764 *¥FUNCTION USED IN’ THIS TEST IS READ. 
4765 TTTTTTTTETETOCTTOCOCTETTTTTCTTTCTTTSTTET TTT TTT TTT TTT TTT Tt TT | 
4766 014650 900004 +6737: SCOPE 
4767 O14652 104413 CNT. RESET :G0 00 CONTROL RESET 
4768 ‘THIS IS A CALL L FOR THE *CNTRL- 
4769 RESET" SROUT INE. A CONTROL RESET IS 
4770 ISSUED AND AFTER A CERTAIN TIME 
arr te CM eRe et 
477 ‘THE PC IN n ERROR ALER A of! ig THE 
4774 :PC WHERE 'CNT.RESET’ IS LOCATED. 
47 ;THIS 1S A VERY BASIC ERRS IF IT 
477, OCCURS GO BACK TO 
4777 O146S54 104421 TST.SIN ‘CHECK IF SIN IS SET, IF SET 
v7 :D0 DRIVE RESET TO CLEAR IT 
4780 O146S5E 012700 001332 MOV RKCS,RO 


4781 Ol4662 013702 001340 MOV RKDA, Re 
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CHECK THAT WITH IDE SET RK11 INTERRUPTS WHEN READ IS DONE 


DZRKKE.P11 ‘O7-JUL-77 09:37 
1 Vv RKBA, RY 
vs oi sore a3 701 obi 328 MOV DRIVAD,R1 
ooh oboe 164424 Boe S-BOB-aRKWC BaD eat. (Oy TAL Fae 
ices BizoR BiR772 MOV #20, tev 0, SEC 13) 
4787 014712 012714 336 MOV TBUF INTO THIS Bis ADRES 
47 147 013708 14 MOV RKVEC, RS 
47’ 147. 127 14 MOV #15, (RS)+ ;SET UP VECTOR ADRES FOR RK11 TO INTRUPT 
47380 014726 012715 000340 MOV #340, (RS) ‘SET PSW ON INTERUPT 
4791 014732 012710 000105 MOV #105. JRO ; READ, GO, IDE SET 
4792 014736 104420 127710 WAT. INT weizatt ‘WAIT’ FOR’RK11 TO INTERRUPT ON 
4793 ‘COMPLETION OF READ 
4794 *WAITING TIME= 337 MS FOR 11/20 
4795 ip? FOR et? 
4796 014742 012777 OO4600 164432 MOV #BADINT, ARKVEC ST XPCTED INTERRUPT VECTOR ADRES 
arae otazen Wentad sah tt ERROR ana, SRELD aera OF 4 T INTERRUPT AFTER READ 
ve ES BI2, De BIS 
4 014756 o00404 BR 1$+10 
4801 O14760 O22626 1$: CMP (SP)+, (SP)+ ;0K, IF RK11 INTERRUPTED TO THIS 
4802 ‘RESTORE STACK POINTER (FROM RK11 INTERRUPT) 
4803 014762 022626 CMP (SP)+, (SP)+ “RESTORE STACK POIN TER (F ROM WAT. IN NT) 
4 014764 012777 OO4600 164410 MOV #BADINT, ARKVEC Real ahNEXPECT D RK11 INTERRUP 
4806 014772 004737 021336 ISR PC, CHKER :CHECK IF ANY BIT IN RKER IS SET, 
4807 : Rk Se, T HERE . 
4808 014776 104036 ERROR 36 ER DOING READ FROM SEC 0, 
4809 : CYL 13 IN INTERRUPT 
4810 015000 701 ooocos 4g: ADD #5,R1 DA SHOULD HAVE INCREMENTED TO THIS 
4811 015004 O20112 CMP Rl; dRe :DID RKDA INCREMENT CORRECTLY? 
4812 015006 0014 BEG 23° BRANCH 
ais leus Suis Sees py ial, 
4815 pt epsd neha ERROR RKDA IRCREHENTED WRONG ON DOING 
4816 A READ ON CYL 0, 
4 12 015022 004737 021312 23: ISR PC, CHKWC see They RKWC OVERFLOWED TO 0, 
4819 015026 104041 ERROR 41 RKWC DIDN’T OURFLO AFTER 
4820 :A READ OF 200 WORDS 
4822 015030 38: 
4823 015030 012746 O00340 MOV #340, -(SP) 
4824 015034 0127468 O1S04e2 MOV #864$;-(SP) 
4825 O15040 o00002 RTI 
wee? bi e048 2714 033736 ig CMP QUT UF+400,9R4 ;DID RKBA INCREMENT CORRECTLY? 
’ + 
uBe8 Dieoue porte BEO 148 oes ExIt 
4829 015050 012737 033736 001162 NOV sarees SREGO cet EXPCT RKBA 
ues pt apes eres HeXOR ye ie aa® 6 : ABS PNCREMENT CORRECTLY 
ig3e ‘AFTER A READ OF 200 WORDS 
de pee a eee THAT RKIT INTERRUPTC AT ORG OMY 
4635 tATEST 40 HAT RK11 INTERRUPTS AT BRS ONLY 
4836 ;#THIS TEST CHECKS THAT RK11 CAN ITERRUPT AT BRS ONLY. IF IT 


:#INTERRUPTS AT A LEVEL HIGHER THAN BRS AN ERROR IS INDICATED. 
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Olde 
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er ee 
OUNUNUnNUnTn Un unTun Uunut 
OF FUPMNO LORE 


07-JUL-77 


Tow 


104421 
012737 
013700 
013777 


012710 
012705 


001376 
3 


005301 
001344 


012777 


015126 001110 


32 
001350 164226 
000007 


001402 
015240 
000340 


015152 


000100 
177760 


177740 


OO4600 164156 


” 


‘ 
O7-JUL-77 09:38 


PAGE 90 
CHECK THAT RK11 INTERRUPTS AT BRS ONLY 


EAERROR 1S INDICATED. IF FOR SOME REASON THE INTERRUPT 


iE 


rh SERRSTEE ERB OT TMLE PEs CHEM 


ceneene se Eon, THES SR LEVEL ccneeavereeusneeeveneree 
SET 560 oF CONTROL 


téTu0: 


1$: 


4§: 


es: 


TST.SIN 
MOV 


RESET 
S A CALL FOR THE 


aD Ba Dhat RN * 


‘ON E ty RIED, ROE THA THAT 
he” PC Pe iN. _— MESSAGE 
PC WHERE 'CNT.RESET’ IS LOCATED. 


;THIS IS A VERY BASIC ERR& IF IT 


* CHECK 1f° ats ete eer 
: aoe} 1B CLEAR IT 
81$, SLPERR SET fer TURN A RORES FOR LUPING 
ORrVAD, aRKDA 
#7,R1 s PRIORITY LEVEL 7 
#540. Re R LEVEL 
RKPRI,R3 + ROTE IF RK11 THTERRUPT LEVEL IS 


CHANGED F FROM S TO ANY oe HER LEVEL 
; THEN CHANGE CONTENTS OF "RKPRI’ 


: ACCORDINGLY 
RKVEC,R4 
#3$. (R4)+ ;SET UP ADRES FOR RRL TO INTERUPT 
4340 (R4) :SET UP PSW ON INTERUPT 
2,-(SP) ;SET PROCESSOR PRIORITY LEVEL AS 

fas, ~?5p) 

; INDICATED BY Re 
#100, aR ‘SET THE IDE BIT 
#-20,R5 ‘WAIT FOR THE RK11 INTERRUPT 

*WAITING TIME=78 US FOR 11/20 
2 713 US FOR 11/45 
R2,R3 ;WAS THE CPU PRIORITY LEVEL LESS THAN 
2s ‘THE RKI1 LEVEL? YES, 

; SHOULD HAVE INTERRUPTED. ERROR, 
R1, SREGO ;GET CPU BR LEVEL 
aR, $REG1 *GET PKC 
103 : THOUGH CPU LEVEL WAS LESS THAN 

‘THE RK11 LEVEL (5), RK11 DID NOT 

: INTERR ur 
aRO *CLEAR RKCS 
#-40,R2 DECREASE THE PRIORITY LEVEL (FOR 
Ri ‘CPU WILL 8 AT THIS LEVEL 
1$ :LUP BAK 8 CHK FOR THIS OR LEVEL. 


;DONE WITH CHKING FOR ALL LEVELS. 
WBADINT,ARKVEC ;RESTORE UNEXPECTED RK1I INTERRUPT 


ro 


¢ 
MO-11-DZRKK-E, RK11 my LOGIC TEST 2 MACY11 30(104%6) O7-JUL-77 09:38 PAGE 31 


DZRKKE.P11  07-JUL-77 09:37 T4O CHECK THAT RK11 INTERRUPTS AT BRS ONLY 
: VECTOR 
4 015284 12746 000340 MOV #340, -(SP) 
48 1 12746 015236 MOV #64$, -(SP) 
4897 015234 00002 RTI 
4898 015236 64S: 
4838 015236 000414 BR TST41 ;;EXIT,TO NXT TST 
4901 O1S240 022626 38: CMP (SP)+. (SP)+ RESTORE STACK POINTER 
430e 015242 012777 OO4600 164132 MOV #BADIAT, ARKVEC sRERIO RE UNEXPECTED RK11 INTERRUPT 
4304 015250 020203 CMP R2,R3 iif THIS INTERRUPT OCCURED WHEN 
4905 015252 003754 BLE 2$ U LEVEL WAS LESS THE 
4906 RL PRIORITY LEVEL (S) THEN IT IS 
4907 :OK. IF NOT SO, ERROR 
4908 015254 010137 001162 MOV R1, SREGO ‘GET CPU BR LEVEL 
4909 015260 011037 OO1164 MOV and, $REG1 ‘GET RKC 
4910 015264 104104 ERROR *RK11 INTERRUPTED WHEN THE CPU 
4911 ; LEVEL (AS POINTED BY R1) WAS 
4912 HIGHER OR SAME AS THE RK11 
4913 i TEVEL (5) 
4314 015266 000746 BR 2$ GO BACK 8 CHK THE NXT LEVEL 
4916 ;: ETL LEULL LL? tit 151-15 te tyt-t-tyte-t-tt-tigh 3-1-4 nlaletabetablabaelailabaelallelele 
4917 tATEST 41 SIMULATE K ’°0 
4918 S*THIS TEST SIMULATES OVERRUN ERROR AND CHECKS IF THE OVR 
4919 ;#BIT IN RKER GETS SET. THEN IT IS CLEARED USING CNTRL RESET 
4920 :#8 CHECKED THAT IT WAS CLEARED. OVR CONDITION IS SIMULATED 
4921 ;#BY TRYING TO READ 401 cOCTAL) WORDS FROM LAST CYLINDER(31e), 
4922 *#LAST SECTOR (13) 
4923 eee eC kee es han nES EGS seEHREAEAHEERESEEEEOEEEEEGS 
4924 015270 ooo004 +éT41: SCOPE 
4925 015272 104413 CNT. RESET GO, DO CONTROL RESET 
4926 ‘THYS IS A CALL FOR THE *CNTRL- 
4927 RESET? ROUTINE. A CONTROL RESET IS 
4 : ISSUED AFTER A CERTAIN TIME 
49 IF THE ’CNTRL ROY’ DOES NOT 
4930 ‘AN ERROR IS REPORTED. NOTE THAT 
4931 THE PC IN ERROR IS 
4932 PC WHERE ’CNT. * IS LOCATED 
4933 ;THIS IS @ VERY BASIC ERRS IF IT 
4934 CCURS GO BACK T 10 
4935 015274 104421 TST.SIN :CHECK IF SIN IS SET, IF 
4936 SET, DO DRIVE RESET TO CLR IT 
4937 015276 013701 001350 MOY DRIVAD,R1 GET ADRES OF DRIVE 
4938 015302 052701 014533 BIS #14533,R1 iSET BITS FOR LAST CYLINDER (312), 
4939 Last SECTOR (13) 
4940 015306 012777 177377 164020 MOV #-401, IRKWC ‘READ 401 
4941 015314 012777 033336 164014 MOV #OUTBUF,aRKBA ;INTO THIS MEMORY BUFFER 
4942 015322 010177 i640le MOV R1, JRKDA : FROM THis DSK ADRES, LAST CYL, 
4943 LAST SEC, SURFACE 1 
peel 015326 012777 OOD00S 163776 MOV #5, IRKCS READ, GO 
4946 015334 o0S002 CLR Re 
4947 015336 105777 163770 1S: TSTB = ARKCS DID CNTRL ROY SET? 
4948 015342 100410 BMI 2$ ‘YES, 


4949 015344 005202 INC Re :NO, WATT “FOR IT 


B08 
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DZRKKE.P11  ‘O7-JUL-77 09:37 T41° SIMULATE & CHECK 'OVR’ ERROR 
4950 015346 001373 BNE 1S ;IF WAITED LONG, REPORT ERROR MESSAGE BECAUSE 
4951 :OVR SHOULD HAVE SET HE CAUSING 
4ge2 :CNTRL RDY TO SET BY NOW 
4953 015350 017737 163760 001166 MOV DRKWC , SREG2 
4954 015356 004737 021004 JSR PC, GTeRG G0, GET RKCS, ER 
4955 015362 104002 ERROR 2 ‘CNTRL ROY O10 NOT SET AFTER DOING 
4956 "AN OVR READ. HE SHOULD HAVE OCCURED 
4957 ‘SETTING CNTRL ROY (HE BECAUSE OF 
49sg :OVR CONDITIONS) 
4959 015364 032777 O40000 163736 2%: BIT 840000,3RKER § ;DID OVR BIT SET IN RKER? 
4960 015372 001006 BNE 3$ 
4961 015374 004737 021004 JSR PC, GT2RG ;GET RKCS, ER 
4962 015400 012737 O40000 001166 MOV wiQ000, SRE ‘THIS BIT (OVR) DID NOT SET. 
4963 015406 104105 ERROR :OVR ERROR BIT DID NOT SET IN RKER 
4964 ?ON SIMULATING OVR CONDITIONS 
4965 015410 022777 140204 163714 35: CMP #140204,9RKCS ;DID HE & ERR SET WHEN OVR SET IN RKER” 
4966 O15416 001403 BEQ 4 :YES, BRANCH 
4967 015420 004737 021004 JSR PC, GT2RG :GET'RKCS, ER 
4968 015424 104106 ERROR 106 ‘HE OR ERR BIT DID NOT SET IN RKCS WHEN 
4969 “AN OVR ERROR WAS SIMULATED 
4970 ‘CLEAR OVER, ERR, HE BITS 
4971 O1S426 104413 4$: CNT. RESET G0, DO CONTROL RESET 
4972 ‘THIS IS A CALL FOR THE ’ - 
4973 RESET’ ROUTINE A CONTROL RESET IS 
4974 !TSSUED AND AFTER A CERTAIN TIME 
4975 ‘IF THE *CNTRL RDY’ DOES NOT SET 
976 {AN ERROR IS REPORTED. NOTE THAT 
4977 : THE PC_IN ERROR MESSAGE IS THE 
4978 "PC WHERE 'CNT.RESET’ IS LOCATED 
4979 ‘THIS IS A VERY BASIC ERRS IF IT 
4980 :OCCURS GO BACK TO TEST 10 
4981 015430 004737 021352 JSR PC, CHKECLR ‘CHECK IF ’OVR’ BIT WAS CLEARED BY 
4982 ‘CON. RESET, IF NOT RETURN HE 
4383 015434 104102 ERROR 102 : jCNTRL RESET DID NOT CLEAR OVR 
4985 015436 004737 021376 Ss: JSR PC, CHKCCLR :CHECK IF ERR’ 8 HE’ BIT GOT CLEARED BY 
4986 :CON.RESET, IF NOT RETURN HERE. 
4987 O1S442 104102 ERROR 102 : CNTRL RESET b10 NOT CLEAR 
4989 ‘HE OR ERR BIT IN RKCS. 
4989 O1S444 004737 021500 6S: JSR PC, DRESET :GO DO DRIVE PeeseT 
4990 O154So 104026 ERROR 26 ae RDY DIDN’T SET 
4331 AFTER THE ABOVE DRIVE RESET 
4993 + SSESELERSERLSSASSARSEASSAAS SASSER EEAERSEASRRERAESRERRRARARARASARAA 
4S  ETEST 42 SIMULATE & CHECK PGE ERROR 
4995 *#THIS TEST SIMULATES ‘PROGRAMMING ERROR’ 8 CHECKS IF IT IS 
4996 #DETECTED BY PGE BIT IN RKER. THEN A CNTRL RESET IS DONE 8 
4997 #IT IS CHECKED IF PGE BIT WAS CLEARED. IT IS ALSO CHECKED IF 
4338 j ATHE SETTING & CLEARING OF PGE BIT SETS 8 CLEARS HE, ERR 
5000 guunaabeseseee ceeaceseebeneuseeDGueseSenEESESeUBESESREcenuaEe® 
£001 o1s4¥Se oo0004 +éT4y2: SCOPE 
E002 O1s4s4 04413 CNT. RESET :00 DO CONTROL RESET 
5003 IS A CALL FOR THE ‘CNT 
5004 ‘RESET’ ROUTINE. A CONTROL RESET Is 


S005 ; ISSUED AND AFTER A CERTAIN TIME 
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DZRKKE.P11 07-JUL-77 09:37 T4e SIMULATE & CHECK PGE ERROR 


S006 IF THe ’CNTRL ROY’ DOES NOT SET 

5007 AN _E pend oREPORTE TED. DHOTE THE THAT 

5009 Te Pc iN Hee pAGe Scat 

5010 THIS I $8 A ven 6 1c ERRe IF Te 
le O1S4S6 104421 TST.SIN F 

ants 35 chek cles sits Ea A IT 

5014 O1S460 013701 001330 MOV RKER, R1 

B18 015464 013777 001350 163646 MOV DRIVAD,@RKDA § ;AORES THE DRIVE, CYLINDER 0 

5017 O1S472 012777 OO02011 163632 MOV #2011, 9RKCS ;SEEK, GO WITH FMT SET 

5018 ‘THIS’ 18 A PGE SIMULATION 

5019 oiSs0O 104414 CNT. RDY i THIS 5 A CALL FOR ’CN.RDY’ 

5020 ‘ROUTINE WHICH WAITS FOR CNT 

5021 *ROY TO SET. IF CNTRL ROY DOES 

So22 :NOT SET WITHIN 883 MS/ 11-20 

5023 i C176 MS FOR 11-4S WITH BIPOLAR) 

5024 :AN ERROR IS Ae PORTED 

S025 015502 032711 o04000 BIT #4000, aR1 ‘DID PGE BIT IN RKER SET? 

5026 015506 BNE YES, BRANCH 

S027 015510 012737 OO4000 001166 MOV #4000, $REG2 ‘THIS BIT IN RKER (PGE) DIO NOT SET 

Soes 015516 004737 O21004 ISR PC GTORG GO GET RKCS, ER FOR MESAGE 

S029 015522 104105 ERROR 105 PGE BIT D0 NOT SET IN RKER 

5030 ‘ON SIMULATION OF CONDITIO 

5031 :§REG2 CONTAINS THE RKER BIT (PGE) 

5032 : THAT HAVE SET. 

5033 015524 022777 142210 163600 1S: CMP #142210,9RKCS ;DID HE & BITS SET? 

5034 015532 001403 BEG : YES, BRANCH 

503S 015534 004737 921004 ISR PC GT2RG ;G0, GET RKCS, ER 

5036 O1554O0 104106 ERROR 106 HE’ OR R ERR Bt BIt DID NOT SET WHEN 

5037 tee Ge RKER. 

5038 *CLEAR PGE, HE, ERR BITS 

5039 o1ss¥2 104413 2s: CNT. RESET ‘G0, DO CONTROL RESET 

5040 ‘THIS IS A CALL FOR THE ” - 

5041 RESET’ ROUTINE. A CONTROL RESET IS 

so42 ISSUED AND AFTER A CERTAIN TIME 

5043 ‘IF THE ’CNTRL ROY’ 

5044 "AN ERROR IS REPORTED. NOTE THAT 

SO4sS :THE PC IN ERROR MES 

SO46 :PC WHERE ’CNT.RESET’ IS LOCATED. 

5047 ‘THIS IS A VERY BASIC ERRS IF IT 

co4e ‘OCCURS GO BACK TO TEST 10 

5049 oO1SS44 004737 021352 JSR PC, CHKECLR :CHECK IF ’PGE’ BIT GOT CLEARED BY 

50s0 !CONTROL RESET, IF NOT RETURN HERE. 

S051 o1ssso 104102 ERROR 102 “CNTRL RESET DID NOT CLEAR 

5052 7 ‘PGE BIT IN RKER 

6053 o1ssse 004737 021376 33: JSR PC, CHKCCLR ?CHECK IF "ERR’ BITGOT CLEARED BY 

5054 ;CON.RESET, IF NOT RET 

c055 oisss& 104102 ERROR 102 !RKCS BITS HE OR ERR DID NOT 

SOE ‘GET CLEARED BY CNTRL RESET 

50s8 3 suvecnenepounnsseocnessndroesuenentssscseepunennenreneneronee: 

c0s3 : KTEST ", SIMULATE 8 CHECK NXM ERROR 

5060 THIS TEST SIMULATES A NON-EXISTENT MEMORY ERROR (NXM) AND 


SOE: +CHECKS IF IT IS DETECTED BY NXM BIT OR RKER.LOCATION 760000 
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DZRKKE. P 07-JUL-77 09:37 T43 SIMULATE & CHECK NXM ERROR 
S062 ;#1S REFERENCED & IT HAPPENS TO BE @ NON EXISTENT LOCATION 
5063 #(FOR DIAGNOSTIC PURPOSES LIKE THIS). IT IS ALSO CHECKED 
5064 I eIF HE of RR BITS ALSO SET AND ALL 3 BITS CAN BE CLEARED 
5065 :# BY CONTROL RESET. 
S066 jseeeskisereeaneansaneareiseaveareareeneersestaneeeestennestes 
S067 oO15560 oo0004 téT43: SCOPE 
Soss 015562 104413 CNT. RESET DO CONTROL RESET 
5069 Tats) TS A CALL FOR THE ’CNT 
5070 ROUTINE. A CONTROL RESET 1s 
5071 : fete AND AFTER A CERTAIN TIME 
507e ‘IF THE ’CNTRL RDY’ T 

? “AN ERROR IS REPORTED. NOTE THAT 

5074 ;THE PC_IN ERROR MESSAGE IS THE 
5075 :PC WHERE ’CNT.RESET’ Is LOCATED. 
5076 “THIS IS A VERY BASIC ERRS IF IT 
5077 ‘OCCURS GO BACK TO TEST 10 
5078 O1SS64 104421 TST. SIN :G0 CHECK IF SIN IS SET 
5079 -IF SET DO DRIVE RESET TO CLR IT 
coso O1SS66 oosoo2 CLR R2 
S081 015570 013700 001332 MOV RKCS, RO 
So8e 015574 012777 177777 163532 MOV 8-1. ORKWC ;WRITE CHECK 1 WORD 
5083 015602 012777 160000 163526 MOV #160000, dRKBA ;AT S 
S084 015610 013777 001350 163522 MOV DRIVAD, aRKDA ;HITH THIS bist ADRES (CYL 0, SEC 0) 
508s 015616 012710 O00067 MOV #67, JRO T CHK X BITS SET 
Soss 015622 105777 163504 1S: TSTB = aRKCS DID CNTRL Rhy SET AS A RESULT OF HE? 
5087 015626 100410 BMI FL 3 tYES 
5088 015630 INC —_- Re ;WAITED L ? 
5089 0156-2 001373 BNE 1 ‘IF NOT LUP BAK & WAIT 
5090 015634 004737 021004 ISR PC, GTORG :GET RKCS, 
5091 O15640 017737 163470 001166 MOV DRKWC , SREG2 :GET RKC 
5092 015646 104113 ERROR 113 :CNTRL ROY DID NOT SET ON DOING 
5093 :Q WRT CHK WITH A NXM LOCATION. 
5094 ‘THIS HE SHOULD HAVE SET THE 
5095 ?CNTRL RDY BIT IN RKCS 
50% O15S6S0 032777 002000 163452 2%: BIT #2000, JRKER ‘DID NXM BIT IN RKER SET? 
5097 915656 001006 BNE 33 YES, BRANCH 
5098 015660 004737 021004 ISR PC, GT2RG G0 SET RKCS, RKER 
5099 015664 012737 902000 001166 MOV #2000, $REG2 :THIS BIT (NXM) DID NOT SET IN RKER 
5100 015672 104105 ERROR 105 !NXM BIT DID NOT SET IN RKER ON 
5101 SIMULATING NXM CONDITION 
5102 O15674 922710 140266 3S: CMP #140266, 3RO :DID HE & ERR BIT SET? 
5103 015700 001403 BEQ YES, BRANCH 
5104 015702 004737 O21004 ISR PC GT2RG -GO, GET RKCS, RKER 
5105 O15706 104106 ERROR 106 sHE OR ERR BIT DID NOt SET WHEN 
5106 ?NXM ERROR WAS SIMULATED 
5107 :CLEAR NXM, HE, ERR BITS 
5108 O1S710 104413 4g: CNT. RESET :GO, DO CONTROL RESET 
5109 :THIS IS A CALL FOR THE ’ - 
e110 ‘RESET’ ROUTINE. AC SET IS 
lil ‘ISSUED AND AFTER A CERTAIN TIME 
Eile ‘IF THE *CNTRL RDY’ 
E113 "AN ERROR IS REPORTED. NOTE THAT 
E114 ;THE PC_IN E MES IS THE 
e115 ;PC WHERE *CNT.RESET? IS LOCATED. 
Sile ‘THIS IS A VERY BASIC ERRS IF IT 
117 :OCCURS GO BACK TO TEST 10 


MO-11-DZ2RKK-E, RK11 oe TEST 2 —" 30( 1046 ) 


DIRKKE.P11 
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UN UU UN UT UN Un UT UT UU Un UU CU Un Ut ot 
~* b+ b= b+ b= b= bs b= bo Be bs Bs Bs = b= Bs Bo he be he 


ul 
» 

- 
au 


~SSBVRRZEREBSBURRE 


WNUUnuunin 
o— b= b= = 
ESE & 
ONMUIE Ww 


wi 
— 
<= 
wo 


COUN UN UN UN UN UN Un UN Un Un UU UT Un Cn CI Un Cn Cn Un aru 
so-so <0 bere varcanven var vapeanvapeamvanperverbamnenneevervaaseotent 
NINO K MOK KOM UTUNUTUTUUTUT 


01S71e 
015716 
015720 
015724 
015726 
015732 


015740 


015742 
01S746 


015752 
015756 
015762 
015766 
015770 


07-JUL-77 
004737 
104102 
004737 
104102 
004737 
104016 


oocco4 
104413 


104421 


013700 
012702 


010277 
104417 


000435 


012710 
104417 


105777 
001006 
004737 
012737 
104105 


021352 
021376 


021432 


001332 
160000 


163362 
ococ01 


163340 
160000 


000015 
900106 


163314 


021004 
000200 O0il&e 
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SIMULATE & CHECK NXM ERROR 


JSR PC, CHKECLR 
ERROR 102 

S$: JSR PC,CHKCCLR 
ERROR 102 

$$: JSR PC, TSTRWS 
ERROR 16 


GOR ReGen, WP nOt nefuRn were. 


Re RESET DID NOT CLE FAR 


NXM BIT_IN 
gp Ir : "ERR’ BITS GOT CLEARED 
BN Y CON.RESET, IF NOT RETURN HERE. 


4 es 


its CHECK IF at 4H RDY IS SET & 
‘WAIT FOR IT. TE Grrr IF IT IS SET 
*R/W/S RDY IS NO 


5 LEARELALELELLAA ALARA RE RA ALLE LL ALRAALAL ALAA RELA LALA LALA ALL LALALE 


hte ST 44 


E & CHECK 
SIMULATES NON-EXISTENT DISK ERROR 8 CHECKS IF 
DETECTED BY NXD BIT OF RKER. IF ALL 


L EIGHT ARE PRESENT 
BE DONE. 


:*THEN THIS TEST IS ABORTED FOR SIMULATION CANNOT 
iris iiitiiitiitiitititittiritiiititttititittiiitittrst etter es 


téT44: SCOPE 
CNT. RESET 
TST. SIN 
MOV RKCS,RO 
MOV #160000, Re 
1S: MOV R2, JRKDA 
DELAY ,1 
TSTB  aRKDS 
BPL 2 
ADD #-20000,R2 
BNE 1$ 
BR TST4S 
23: MOV #15,aR0 
DELAY ,106 
TSTB = ARKER 
BNE 


35 
ISR PC, GTERG 
OV #200, $REG2 


DO CONTROL RESET 
Tits Is 15.8 CALL FORT HE *CNTRL- 


SA SERY BASIC _ERRS IF aT 


OCCURS 
;CHECK IF 
;00 DRV RE 


Pare TO BY Re 
US ON i1/20, 


RE 
;;EXIT TO THE NXT TST 


sDRIVE RESET, ON A NX ORIVE 
TIME DELAY 1588 US ON 11/20 

f S uS ON 11/4 

3010 NXD att IN RKER SET? 

‘GET 'R KCS, RKER 

: THIS BIT’ (NXD) IN RKER B10 NOT SET 

i NXD BIT DID NOT SET ON TRYING 

TO PERFORM A FUNCTION 

: NON-EXISTENT DRIVE : 

: CHECK THAT THE JUMPER CARD CONTAINING 


& 


© 
2. 
tl od 
yt 


— o— oe 


KNUNUNUTUT UT UT UU UT UT UT Un UT UT UT Un UT Un Ur Un Unrest 
(RRR Mr nn I ln —eoe 
Stata trtattete Wit ist dt bd ay iited fp epee ie 


it 
For eS ubeD 


rorurorururururare 
BIRREORH 


FOFOFUFUFOrurOrururore 
CW at Sycta ee le 
WOnNMUIC Wr Ow 


Seel 


— 


oy 
- 
og 


O1e046 


016CS0 
016054 
016056 
01606e 
Cis064 
016970 


2P0000D 
TRG En 


oO 
= 
o 
— 
tT 
s 


104413 


004737 
104102 
004737 
104102 
004737 
104016 


0S270e 
012737 
104413 
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140214 
021004 


021352 
021376 


021432 


001332 
177773 0013te 
001350 


O14S40 
016124 001110 
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SIMULATE & CHECK NXD ERROR 


3S: CMP #140214, RO 
BEQ 4 
ISR PC, GTORG 
ERROR 106 

4S: CNT. RESET 


JSR PC, CHKECLR 


ERROR 102 

S$: JSR PC ,CHKCCLR 
ERROR 102 
JSR PC, TSTRWS 
ERROR 16 


Ref FOR DRIVES PRESENT IS PROPERLY 


NOTE T That 7 x ic at 
15 OFF V PRESENT 
VE 


A y THE *CNTRL- 
ONTROL RESET IS 
A CERTAIN TIME 
T * DOES NOT SET 
;AN ERROR IS REPORTED. NOTE THAT 


ie PC_IN ERROR MESSAGE IS THE 
;PC WHERE ’CNT.RESET’ IS LOCATED. 


<>? 
2 


OR E S 
60 CHECK 8 WAIT FOR R/W/S RDY 
:TO SET. IF SET SKIP ERROR 
ws SHOULD BE SET, IT'S 


ivtcTa”  CIMLAR LOEK MC ike” 


{STEST 45 SIMULATE . CHECK _NXC ERROR 
; S HE gett ay CYLINDER ERROR 8 CHECKS 
;#1F IT IS DETECTED BY THE NXC BIT KER T 
;#OF RKCS. IT IS CHECKED IF THEY CAN BE CLEARED BY CONTROL 


E 
eereeebensennenaececsneneceecaecaenaenenseenanaesnennensenaeegs 
C 


+éTus 
y RKCS, RO 
23: MOV #-5, COUNT 
MOV DRIVAD, Re 
BIS #14S40' Re 
MOV #3$, SLPERR 
33: CNT. RESET 


3b Oe "ERROR 133° ONLY S TIMES 
ADRES OF DRIVE 
SFT BITS FOR CYL #13 

RETUR RES FOR 


HE ° : S NOT SET 
AN ERROR” IS REPORTED. NOTE THAT 


~ 
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DIRKKE 07-JUL-77 09:37 THS SIMULATE 8 CHECK NXC ERROR 

5230 ;THE PC_IN ERROR MESSAGE IS THE 
5231 "PC WHERE "CNT.RESET’ IS LOCATED. 
5232 ‘THIS IS A VERY BASIC ERRS IF IT 
5233 : GO BACK TO TEST 10 
5234 16126 004737 021432 ISR PC, TSTRWS ‘GO CHECK & WAIT FOR R/W/S ROY 
5235 :TO SET. IF SET SKIP ERROR BELOW 
5236 016132 104016 ERROR 16 ‘R/W/S RDY 1s NOT SET 
S237 O16134 1044el TST. SIN :CHECK IF SIN IS SET, IF_SET 
5238 D0 DRIVE RESET TO CLR 
5239 016136 010277 163176 MOV Re aRKDR ‘ADRES DRIVE, NX NXC CYLINDER 
S240 016142 012710 O00011 MOV #il,ar ‘SEEK, GO TO NXC CYL 
5241 O18146 104412 CHKCRDY ; 0 CHECK IF CONTROL ROY IS SET 
542 IF SO, SKIP THE E 
5243 016150 104021 ERROR 21 ; SEEK aS TRIED TO A NON EXISTENT 
so44 CYLINDER, NXC SHOULD HAVE OCCURED 
524s SETTING ANTRE ROY. BUT CNTRL RDY 
co46 :DID NOT SET. 
5247 16152 032777 OO0100 162150 9S: BIT #100, IRKER ;010 NXC Ser? 
S248 O16160 001020 BNE 4 
S249 016162 004737 921004 JSR PC GT2RG G0 eT RKCS, ER 

O1SiS& 017737 183146 01166 MOV IRKDA, SREG2 GET RKDA 
S251 O16174 104110 ERROR 110 :NXC DID NOT SET WHEN SEEK 
be5e sas TRIED TC CYLINDER AS INDICATED 
5254 016176 004737 021432 JSR PC, TSTRWS CHECK 8& WAIT FOR R/W/S RDY, 
gcc ‘IF SET SKIP ERROR 

016202 104016 ERROR 16 :R/W/S SHOULD BE SET 
5257 O16204 194413 CNT. RESET :GO DO CONTROL RESET 
S258 016206 004737 o21500 ISR PC, DRESET G0 DO DRIVE RE 
5259 Oléele 104026 ERROR 26 :NXC DID NOT SET AND DRIVE MAY 
5260 ‘HAVE TRIED TO DO A SEEK, AFTER 
5261 ‘WHICH R/W/S ROY DID NOT SET 
bbe 016214 005237 901362 INC COUNT ;ALLOW ONLY S MESSAGES FOR 
5 Oi62e0 001405 BEG c$ SERROR 13 
5264 Olbe2e2 062702 o0004C 4$: ADD #40,Re “ADRES THE NXT CYL(IN NON-EXISTENT ZONE) 
S265 Ol6226 032702 917740 ; BIT #17740, Re :CHKD FOR NXC’S? 
Bebb O1se32 901334 BNE 3$ ‘TF NOT, LUP BAK 8 CHK THE NXT NXC 
S268 016234 032710 140000 S$: BIT #140000, JRO :DID HE 8 ERR BIT SET WHEN NXC BIT SET” 
5269 0916240 001003 BNE ‘YES, He 
5270 Ol6e42 904737 921004 ISR SC GTORG GET R RKCS 
5271 Ol6e46 104106 ERROR 106 "HE OR ERR oa DID NOT SET IN RKCS 
5272 ‘TEN Nee ERROR WAS SIMULATED 

73 CLEAR HE 
74 O16250 104412 &$: CNT. RESET :60, DO CONTROL RESE 

5275 THIS IS A CALL FOR THE ‘CNTRL- 
5276 ‘RESET’ ROUTINE. A CONTROL RESET Is 
5277 ISSUED AND AFTER A CERTAIN TIME 
ce7 i1f° THE “CNTRL ROY DOES NOT SET 
eeon AN a 1s fee ORTED. NOTE Tat 
581 :PC WHER ., ENT NT ORESET 13 LBcateD. 
5e8e ‘THIS IS A VERY BASIC ERRS IF IT 
ee en !OCCURS GO BACK TO TEST 10. 
E284 Cleese 004727 d213¢2 ISR PC, CHKECLR :CHECK IF *NXC’ BIT WAS bP aRED SY 


sees :CON.RESET. IF NOT, RETURN HERE. 


HOS 
SSaAeSPEY PAA SBP LGB TEST PER RADE FPGA Ea POE % 


S286 016256 104102 ERROR 102 ; CNTRL RESET DID NOT CLEAR 
b16260 ae 10 140000 7$: BIT #140000, aRO i, fe weak EP ts GET CLEARED” 
16264 0014 BEQ TST46 

5290 Cl6266 010037 O01162 MOV RO, SREGO : ee 
ea! 016272 StL 001164 MOV aRO, SREGI I RKCS CON TENte 

92 016276 104102 ERROR 102 RESET DID NOT CLEAR 
5233 OR ERR BIT IN RKCS 

95 ict“. 6 Ct KKK!!! 
2539 HATEST oa eee on XIST SECTOR ERROR & CHECKS THAT 
5548 Hy ay: Hey WXS BIT s a "ahs » Ads CHE CKE KED he 3 
5300 Can BE ALEARED Hey BA ROL RE 
5301 cseeeun{iCiN BE CLERRED BY CONTROL RESET 
S202 016300 900004 +éT4g: SCOPE 
5303 016302 104413 CNT. RESET :GO, DO CONTROL RESET 
5304 THIS TS A CALL FOR THE 'CNTRL 

?RESET’ ROUTINE. A CONTROL RESET 1s 

3 ‘ISSUED AND AFTER A CERTAIN TIME 
5307 “IF THE 'CNTRL RDY’ 
5308 ‘AN ERROR IS REPORTED. NOTE THAT 
5309 :THE PC IN ERROR MES 

310 *PC WHERE ’CNT.RESET’ IS TR are 
$311 ‘THIS IS A VERY BASIC ERRS IF IT 
5312 :OCCURS GO BACK TO TEST 10 
5313 016304 013700 9001332 MOV RKCS.RO 
5314 O16310 013777 001350 163022 MOV DRIVAD, aRKDA T ADRES OF DRIV 
5315 016316 052777 000014 163014 BIS #14, JRKDA ‘GET BITS FOR palate le (DECIMAL) 
esl? Oleaae OlSrr? Asam, iEEeTe ae ee 1a he moss 

318 pte a35 ft 710 aaaeee MOV ae : AD, FR NX SECTOR) 
5319 O16344 104414 CNT. RDY :THIS IS A CALL FOR *CN.RDY’ 
5320 "ROUTINE WHICH WAITS FOR CNT 
6321 :RDY TO SET. IF CNTRL RDY DOES 
S322 sNOT SET WITHIN 883 MS’ 11-20 
5323 :(176 MS FOR 11-45 HTH BIPOLAR) 
5224 :AN ERROR IS REPORTED 
5325 'NXS ERROR SHOULD OCCUR NOW 
5326 01634 017702 162756 MOV JRKER, Re 
5327 O1b3se O3e70e 006040 gIT #40, Re sO10 NxS “Blt SET IN RKER? 

it ° 

2458 Bt EaeR wath 021004 a a GT2RG it ai aKEG, RKE 
5330 016364 012737 OO0040 oD11é66 Mow 04d, $REG2 :THIS BIT (NXS) IN RKER DID NOT SET 
2231 016372 104105 ERROR iN Bit pio NOT SET ON SIMUL STING 
5333 016374 o42702 oD0040 1S: BIC #40, R2 :MASK NXS BIT 
5334 O16400 001407 BEQ 2$ : CHECK If ANY OTHER 
6335 ?RKER BIT SET 
5336 016402 012737 o0CO4O oo11b2 MOV REGO :GET EXPCTD RKER 
5237 O16410 017737 162714 OO1164 MOV arith, $REG! :GET RKER RECVD 
£238 O16416 104107 ERROR :ONLY *NXS’ SHOULD BE SET 
£339 ‘IN RKER, ANOTHER RKER BIT 
5340 HAS SET: (NOTE ‘NXS* WAS 


SERRRE Phi © BS} O83 gr GH7° TESTS RENTS BiAiURTE B’cHECK hws ERROR 


S342 d16420 a 140204 2s: ee posta fie HE by or BITS SET? 
8} 
164 021004 : GT2RG RKER 
is Ha 104106 ERROR 106 : HE 3 ERR Btr DID NOT SET WHEN 
5346 !NXS ERROR OCCURED 
534? ‘CLEAR NXS, HE, ERR BITS 
5348 ~O16434 104413 38: CNT. RESET iG0 < CONTRO 
5350 tule ROUTINE. A CONTROL RES RESET IS 
5351 ‘ISSUED AND AFTER A CERTAIN TIME 
5352 de I ’ CNT ’ DOES NOT SE 
§353 AN E IS TED. NOTE THAT 
5354 :THE PC IN ERROR MESSAGE IS 
5355 *PC WHERE ’CNT.RESET’ IS LOCATED 
5356 ‘THIS IS A VERY BASIC F IT 
5357 !OCCURS GO BACK TO TEST 10 
5358 016436 004737 021352 JSR PC, CHKECLR ‘CHECK IF 'NXS’ BIT WAS CLEARED BY 
5359 :CON.RESET. IF RETUEN HERE. 
5360 o16442e 104102 ERROR 102 :CNTRL RESET DID NOT CLE 
ee. Ol16444 004737 021376 $ JSR PC, CHKCCLR Me oe Be ERR TS WERE CLEARED 
4 2137 4§: , CHKCCL . *HE’ , : 
23° ieee Reset. fe NOT, RETURN HERE. 
5364 O164S0 104102 ERROR 102 RKCS BITS ERR OR ie TUERE NOT 
2365 ‘CLEARED BY CNTRL RESET 
$367 wate” 6 SHLIN L a””TC 
5368  STEST 47 SIMULATE & CHECK WCE 
5369 *THIS Test STMULAT ES A WRITE CHE cK ERROR A ano CHECKS THAT IT 
3370 x15 DETECTED. BY site gi! A FOR C PARISON Fe T USES. 
? ity " BR T fe CO ts } 256 WORDS 
2355 j SREMORY evious ine ol ct Ee f SIMULATED BY 
$374 *DROPPING A BIT FROM MEMORY BUFFER. 
5375 rearevslneayenentesneneonoaeeneaseneeneaneaneeaMeaeeneaneneen ey 
5376 Ol64Se ooocoy4 +éTy7: SCOPE 
5377 O16454 013700 001332 MOV RKCS, RO 
5378 O16460 194413 CNT. RESET :GO, DO CONTROL RESET 
5379 :THIS IS A CALL FOR THe ’CNTRL- 
5380 RESET’ ROUTINE. TROL RESET IS 
381 i135 UE AND AFT Rn a CERTAIN TIMe 
82 "CNTRL RDY’ DOES NOT SET 
5383 "AN ERROR IS REPORTED. NOTE THAT 
5384 :THE PC IN ERROR MES 
5395 ‘PC WHERE *CNT.RESET’ IS LOCAT 
53 :THIS IS A VERY BASIC ERRS IF IT 
5387 :OCCURS GO BACK TO TES 
5388 ole462 104421 TST.SIN :CHECK IF SIN IS SET, IF 
5389 i T DO DRV-RESET T9 CLR IT 
5390 O16464 012701 0332336 MOV #OUTBUF RI THIS CODE SETS UP A MEMORY 
£391 016470 Ole702 177400 MOV #-400, Re ; BUFFER OF 256 WORDS STARTING 
£392 016474 012703 177777 MOV #177777, R3 TBUF 
5393 Pest WORD 177400 
5394 : SECOND 177001 
£395 16500 062703 17740! 1S: ADD 8177401 R3 
5396 O16504 010221 MOY R1)+ :LAST WORD 000377 


$397 Ol6S0& 005202 INC R2 ;HAVE U GENERATED ALL 256 WORDS” 


ee oe et ee aT 


$338 016510 001373 BNE 1$ sIF NOT, LUP BAK 8& GENERATE NXT 
737 170007 4 MOV 70007, OUTBUF + W NG Ai 

cist 016512 012737 170007 03335 0 #170007, OUTBUF ‘eitrhy uh By BATH ARB By PRORE? G 
S403 016520 012777 177400 162606 MOV #-400, IRKWC 
Fs Bites bier ey ie Se TI RE Os, on 
eve ieee bt3ei6 Blade 1 a ae es: 
S4os 01654 104412 CHKCRDY HECK IF CONTROL ROY ET 

a ELAS FAR ERhe Pe sbic 

e410 016550 104065 ERROR 65 :CNTRL ‘ROY 1 eH Ho or, 

412 O1 777 : T #1, IRKER : Be T? 

41 016558 932777 900001 162550 3$ i i ORKE ‘OD eR BI SE 

S414 016562 004737 021004 JSR PC, GTORG ;G0, GET RKCS, RKER 
S41S O18S566 012737 OO0D01 O01166 MOV #1, SREG2 : THIS BIT CuCE) DID NOT SET 

41 016574 104105 ERROR 105 iW BIO NOT SET OO MUCATING 

S418 16576 022710 100206 4g: CMP #100206 , RO ‘Yer peace 

e e 

4 1 Wath 021004 hia PC GT2RG tg "ff RKCS, RKER 
S421 O16610 104106 ERROR 106 ‘HE'OR ERR BIT DID NOT SET WHEN 

S422 : WCE WAS SIMULATED 

423 16612 4413 S$: CNT. RESET ?CNTRL 

4 16614 060473? 021352 ISR PC, CHKECLR "WAS "WCE? BIT CLEARED? 
S42s -IF NOT, RETURN HERE. 

438 016620 104102 ERROR 102 ‘CNT RESET b19 NOT CLEAR 

4 ‘WCE BIT IN RK 
eve8 016622 004737 021376 6$: ISR PC, CHKCCLR CHECK TF ERR BIT WAS CLEARED. IF 
5430 916626 104102 ERROR 102 :CNTRL RESET DID NOT CLEAR 
S431 :RKCS 

5433 Te TEST GO CIECK THAT SCE STOPS PL CONTROL ACTION ON GOFT E 
5434 :¥TEST SO CHECK T SSE STOPS $ ALL CONTROL ACTION ON SOFT ERROR 
5435 jsTHIS TEST CHECKS THAT WHEN 'STOP ON SOFT ERROR’ BIT IS SET IN 
a 5 AND A SOFT ERROR 18 ENCOUNTERED ALL ioe ett ACTION WILL 
ae HHSIOe T Enno Are Srmuuaieo BY" hoe A IN Toe PaevI ous * 

443 iaTEST. I ON NE INDER O. a Fonts ERdut ge Babar 

5441 :#T0 THIS TEST. A TWO'SECTOR "WRT CHK 

S442 :#CONTROL ACTION SHOULD STOP BFTER THE FIRST SECTOR DURING 
5443 ‘*WHICH A SOFT ERROR IS SIMULATED. 

S444 SETTTTTTETT ELECTS TET TTT TT ETTTT TTT TTT TTT TT TTTT TTT TTCTTTCeTTe 
S445 016630 o90004 té1s0: SCOPE 

S446 Ol6632 104413 CNT. RESET ;G0, DO CONTROL RESET 

5447 THIS IS A CALL FOR THE ’CNTRL- 

Ease ‘RESET ROUTINE i. CONTROL RESET IS 
et43 sf2StED BNO CERTAIN TIN 

EAE] N ERROR Ts tae Rote. That 
S4e2 THE PC IN ERROR MESSAGE IS 


THE 
S453 :PC WHERE *CNT.RESET’ IS LOCATED. 


¢ 
/ 


Banke ety* ok} 4, O55 tgSt° = 4 fegy!? Bie K THATS 53 Stops ALL CONTROL ACTION ON SOFT ERROR 


cies 016634 104421 — bee 78. Brick 49° Test ib ie 


S157 oh ; aa T DO DRIVE RESET fO CLR IT 
td 
24 pipe 3 127 004335 033354 MOV BL SC0G?, corr i WCE IS SIMULATED BY DROPPING A BIT 
1 18 OH Se MORO were HoAa RENDRY 
SHbe a in oad ren. ‘BUFFER IS CREATED IN THE PREVIOUS TEST. 
464 pt eee pi 3704 003580 162452 oy #-1000'dRKWC ;WRT CHK 1000 (OCTAL) WORDS, 2 SECTORS 
S465 Ol6662 012777 033336 162446 MOV #OUTBUF, JRKBA FROM THIS BUS 
S466 016670 010177 162444 MOV R1, ARKDA WITH THIS DISK ADRES, SEC 0, CYL O 
S467 016674 Ole710 ooo407 MOV Rao ORG SWRT CHK, GO, 
S468 016700 1044le CHKCRDY :GO CHECK IF CONTROL RDY IS SET 
243 iA TRL’ ROY DID HOT SeT AF 
5470 016702 104065 ERROR 65 : CNT! Y DID NO ER WRT 
5471 :CHK. A SOFT ERROR (WCE) IN 
547 ;SECTOR 0 SHOULD HAVE STOPPED 
547 ‘ALL CONTROL ACTION. 
a174 016704 022777 OO0001 162416 2S: CMP #1, RKER j CHECK 0 ONLY ’WCE’ BIT SHOULD 
5476 016712 001407 BEQ 3$ YES, BRANCH 
5477 916714 012737 oo0001 o0116e MOV #1, SREGC GET EXPCTD RKER 
S478 916722 017737 162402 OO1164 MOV JRKER, $REG1 GET RKER RECVD 
6479 016730 104107 ERROR 107 ‘ONLY BIT "WCE’ OF RKER 
5480 ‘SMR BE T (WCE WA 
481 IMULAT VE). ERROR 
cues 0167 2 35 Ri ich AT Pant RKDA INCREMENTED BY 
: N 
484 te ile, 162400 ins RI, JRKDA CTOR ONLY eer KEL Niet 
548s t ONTRL ACTION DID STOP Cer 
S486 :SOFT ERROR IN SECTOR O 
5487 O16740 O01406 BEQ TSTS1 rey 
S4gg 016742 010137 001162 MOV R1, $REGO -QET EXPCTD RKDA 
S489 O16746 017737 162366 OOL164 MOV ° QRKDA, $REGL :GET RKDA RECVD 
5490016754 104070 ERROR 70 *RKDA SHOULD HAVE INCRMNTO 
5491 -BY 1 used Y, IT DIDN'T 
5492 WCE SIMULATED IN THE 
5493 ‘FIRST SECTOR & A WRT 
494 : OF CTORS WAS ISSUED 
49S ; CONTR OLE D AFTER 
5496 TING WCE IN THE FIRS 
5497 : SECTOR. HENCE KDA HOULD 
5498 INCREMENT BY 1 SECTOR ONLY 
ecag 
5501 ii peoeqvucqeaaqeonsesndenssssseresesoeccoorereenceresesore errs ae 
5502 TEST Sl C HAT RK11 INTERRUPTS ON SOFT ERROR WHEN SSE 8 IDE ARE SE 
cc03 -*THIS TEST CHEC 15 SET WIT 
eso4 :¥ERROR OCC OL ACTION WILL STOP Q 
soos REQUEST ( NTERRUPT ) WILE OCCUR AT THE END OF THE CURRENT 
550e -#SECTOR. SOFT ERROR IS SIMULATED BY WCE AS IN PREVIOU 
6607 j#TEST. PREREQUISITES FOR THIS TEST ARE THE SAME AS THOSE 
550e -#FOR THE PREVIOUS TEST 


$5093 PERERA RARER TREE EEE ER EERREREAEAREEAAERAREE EE EAERRERERERERERERED 


ee ee _— «+-« 
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KE-Bi1 07-JUL-77 09: TS! CHECK THAT RK11 INTERRUPTS ON SOFT ERROR WHEN SSE & IDE ARE SET 


10 O16 ooo004 TSTS1: SCOPE 
! 7 beng CNT. RESET 
r ate = a + s°Ps OOM TACT PERE TE CN 7 - 
eeta To Ano Mens “ shit 
ssis LIF CNTRL ROY’ DOE 
ee! + AN ERROR 15 TED. nore That 
1 : THE PC IN ERROR ME IS T 
5518 ;PC WHERE ’CNT.RESET’ IS LOCATED 
5519 : THIS IS @ VERY BASIC ERRS IF IT 
5520 :OCCURS GO BACK TO TEST 10 
S521 O16762 104421 TST.SIN s CHECK IF SiN IS SET, IF 
S22 T po DRIVE RESET to CLR IT 
SS23  O16764 012737 170007 033354 MOV #170007, ouraur+i6 “WCE IS SIMULATED BY ING A BIT 
5524 pI THE EIGHTH WORD (WH (WHICH IS 174007) 
5525 THA AT WORD EMORY . 
2258 ‘BFE, STH RT ING 8 ouster. | 
ees eG ree, ean 162330 NOY at SaKuC ;WRT CHK ) WORDS, 2 SECTORS 
&- f 
2253 pie rae WE 777 0333 1P5334 MOV FouTBUF @RKBA =; FROM HK Te Bos OSRES 
5531 017012 010177 \be32e HOV RI aRKDA ‘WITH THIS BIS ADRES, SEC 0, CYL O 
eas Re bi2720 Bi 704 MOV #1$ CARD ;SET UP INTERRUPT VECTOR FOR RKi1 
017026 012710 340 MOV #340, aRO sSET PSW On. IN TERRUPT 
S535 017032 012777 o00S07 162272 MOV #507, IRKCS T CHK SSE, IDE SET 
beae 017040 104420 177777 WAT. INT, 137999 MALT i INtERRUPT FROM RKI1 
3 > TIME=485 MS FOR 11/20, 
2Pag 4737 021004 PC, GT2RG :97 Ms a iss 
eed Bt 38d M111 ; EREoR if! :RKLL p16 MAR NTERRUPT AFTER A SOFT 
S541 sERROR (SIMULATED) IN SECTOR O 
seve 0170S2 000417 BR 2s 
eeyd 017054 022626 1S: CMP (SP)+, (SP)+ ;RESTORE STACK POINTER (FROM RK11 INTRUPT) 
5545 017056 Occbeb CMP (SP)+' (SP)+ :POP STACK (FROM WAT. INT) 
S46 017060 012777 OO4600 162314 MOV #BADIAT, ARKVEC ; RESTORE RKII INTERRUPT VECTOR 
5547 “ADRES FOR UNEXPECTED INTERRUPTS 
SS48 017066 005201 INC R1 
S549 017070 020177 162244 CMP RI, ARKDA ;CHECK THAT RKDA INCREMENTED 
5ss0 :BY ONLY 1 SECTOR BEFORE INTERRUPT 
cos : OCCURRED 
€5S2 017074 OO1406 BEG 2$ 
Sees Girioe eee MSE onus «= ay ui ecn (TBs 
o 
sS5 617110 104003 ERROR *RKDA te HAVE INCREMENTED BY 
cSSb it SECTOR ONLY, IF ALL CNTRL ACTION 
aa HAD STOPPED AFTER SOFT ERRO 
: (SIMULATED) IN SECTOR O. IT DID NOT. 
5559 017112 2s: 
S560 017112 012746 o00340 MOV #340, -(SP) 
SS61 O17116 O1e746 017124 MOV #64$,-(SP) 
SS6e O17122 900002 RTI 
SSt3 (017124 64S: 
S564 017124 005077 162202 CLR JRKCS :CLEAR THE IDE BIT 


Beane Bt tik. eh OFS Th gt SF a su rey MOCK THAT AKT INTERRUPTS ON SOFT ERROR WHEN SSE & IDE ARE SET 


Ansa AS 


(ronan ere nero 
ob ee 


ONOUECWeO 


wm 
oo 
Mur 
ow 


S621 


oO000 20000 
He he ee 
NNNN NNNNG 
ae Woes 
cork Lorn 


017204 
017212 


017216 


017256 


017260 


os 
es 
005002 
012737 
104417 
004737 
104016 
104413 


01 
012777 
052710 


104412 


104112 


017703 


177794 


017152 


000142 
021432 


177777 
001350 
177776 


000007 


000020 
000100 


ig2044 


001110 


th 


33: 


4$; 


aA 8 
j ¥THIS Rity CHECKS et THE EXTENDED MEMORY atts OF T 


TEST Se 


; #THE RK OLD ¢ ive & 0.47%? 
; #THIS COULD GIVE RI 
;*SHOULD OVERFLOW INTO THE MEX BITS. 


6 RXM ERROR BUY BUT EVEN URITE, Co ist Tateo. 
SIMILIARLY IT IS CHECKED 


iETHRT THE 0 NERFLOUING BIT CAN MAKE THE MEX BITS COUNT 
es seseseaeaeac acces deeae ae sea aa ee nnnngeaeeeensesas 
téTS2: SCOPE 


sc 
MOV RKCS, RO 

MOV #-4R1 

CLR 

MOV #1$, SLPERR 
DELAY 

ISR bo. FSTRUS 
ERROR 

CNT. RESET 

MOV R2, ORO 

MOV -| aRKWC 
MOV DRIVAD, JRKDA 
MOV #177776, JRKBA 
BIS #7, ORO 
CHKCRDY 

ERROR 65 

MOV R2, RS 

ADD #20, RS 

BIC #100,RS 

MOV 0.R4 

BIC #177717,R4 
CMP JR4 

BEQ 

MOV RS, SREGO 

MOV R4’ SREGI 
ERROR 112 

MOV JRKER,R3 


;SET_UP THE COUNT 
:INITIALIZE MEX BITS TO B SET IN RKCS 
:SET RETURN ADRES FOR 


*LUPING ON EROR (SW9) 

TIME DELAY 

*WAIT FOR R/W/S RDY 

*R/W/S RDY IS NOT SET 

:GO CONTROL RESET 

i THIS TS A CALL FOR THE *CNTRL- 

; RESE ROUTINE. A CONTROL RESET IS 

Te eteD AND AFTER A CERTAIN TINE 

i IF THE ’CNTRL RDY’ DOES NOT 

RROR IS RE! 

PC_IN ERROR SAGE IS T 
RE ’CNT.RESET’ IS LOCATED. 

;THIS IS A VERY SIC ERR& IF IT 

BACK T 


URS GO ST 1 
‘SET MEX vis (AS IN R2) IN RKCS 


‘WRT CHK 1 
“THIS DISK ADRES, SEC O, CYL O 
:THIS BUS ADRES. THIS BA 
?IN CONJUCTION WITH MEX BITS OF RKCS 


;THERE Wy Y BE A NXM OR WCE BUT 
‘WHATEVER THE CASE RKBA SHOU 


LD 
OO CHECK IF Te CONTROL RBY fe ee¥ — 


;IF_SO, SKIP THE EROR MESSAGE. 
;CNTRL’ROY DID NOT SET AFTER WRT CHK 


;MEX BITS SHOULD INCREMENT BY 1 TO THIS 
; MASK OUT IDE BIT POSITION, IF SET 


K OUT ALL BITS EXCEPT MEX 
B10 MEX BITS INCREMENT CORRECTLY? 


3 
EXPCTD MEX air S 
i MEX BITS RECVD 
MEX peta? DID NOT INCREMENT AS 


* WHE ‘ 
NOTES THAT BIT POSITION4Y 8S 
;REFLECT MEX BITS O & 1 IN THE 
; ERROR SAGE 
;GET RK 


017324 
017326 


017334 


01 
017404 


017406 
017412 
O1741E 


07-JUL 


104107 


062702 
005201 
001313 


ooc004 
012737 


012737 
005737 
012737 


O01 

000002 
013700 
104413 


000001 


017356 
177700 
004534 


004S34 
000340 
017400 


001332 


033336 
001336 
000100 


001164 


001206 


oooo04 
ooo004 


ooco04 


na ls RK11 BASIC LOGIC TEST 2 MACYI1 i 07-JUL-77 09:38 PAGE 104 
-77 09:37 TS2 CHECK 


THE MEX BITS IN RKCS 


Bey Rafe, R3 ;MASK WCE,DLT,NXM BIT, IF SET 
BF i ; BRANCH If REST OE RK RKER CLR 
#177776, RS SK NON-WCE BITS 

MOV 5, $REGO THIS IS THE EXPCTD RKER 

MOV BPE SREGI GET RKER 

ERROR 107 ‘ERROR IN RKER. _IT SHOULD 
‘BE AS EXPECTED IN 
: ERROR HES 

S$: ADD #20,R2 INCREMENT TO NXT MEX BIT 
INC RI ‘HAVE U CHKD THE MEX BITS 4 TIMES? 
BNE 1§ IF NOT, LUP BAC 


2H HHH HHH HHH 
 ATEST $3 TRANSFER FROM DISK TO TTY 
* THIS vest ees THE HIGH ORDER BITS OF THE ADDRESS 


2, CYL O. T IS READ BACK NPR IS DO 
* NOT TO THE MEMORY BUT THE TELETYPE BUFFER (TKS 177560) 
% AND IT CHECKED THAT THE WORD WAS RECIEVED CORRECTLY: 
:#IF IT IS NOT, ANE ERROR IS REPORTED. THIS TEST IS 
¥SKIPPED ON AN 11/05. 
jougeenssnenenenesvessasseseensonessnanaesssoeeseoqnsereseserer® 


+8153: SCOPE 
Boy #1, STIMES ;:D0 1 ITERATION 
‘THIS CODE FINDS OUT IF THE CPU 
1S AN 1 11/05 OR ELSE. 
: ON (177700) CAN N BE 
ADORE S580 OF RO MEMORY LOCATION, BUT 
N ANY OTHER CPU IF 177700 IS NREPERENCED 
7 TI Our WIL : OCCUR. 
MOV #53, 084 “SET UP TIME OUT VECTOR 
TST 3#177700 ;REFER ENCE RO 
MOV #BADTMO, aa4 'RO WAS REFERENCED W/O TIMEOUT 
: HENCE ly 1705 
BR TSTS4 SKIP THIS TEST 
S$: CMP (SP)+, (SP)+ theGTORE” STACK POINTER 
MOV #BADTMO, 284 "RESTORE TIMEOUT VECTOR 
MOV #340, -(SP) 
MOV #64S, ~(2p} 
RTI 
64S: 
MOY RKCS,RO 
CNT. RESET GO, DO CONTROL RESET 


‘THIS IS A CALL FOR THE *CNTRL- 
RESET’ ROUTINE. A CONTROL RESET Is 


‘OCCURS GO BACK TO TEST 
MOV #OUTBUF ,R1 
MOV RKBA, RY’ 
MOV #100; dR1 ;WRITE THIS WORD 


a 
j 
3 


= 


ceerreneeeee 3 
; 
£5 


Y3y 
123 
a? 


oO00 —--O 
er 


—p 
or 
~ 
£= 


OOOOOO0OD0 BO00 DBOCOCODD0D0O0D00000 


Ree See RauN 
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09:37 TS2 TRANSFER FROM Sk TO T 


2 am 161704 MOV 8-1, IRKWC ;WRITE 1 WORD 
1350 MOV DRIVAD, Re 
oo00d2 BIS 82,R2 :ON CYL 0, SEC 2 
161674 MOV Re, JRKDA 

MOV RI; RY ;FROM THIS MEMORY LOC 
000003 MOV 83, dRO ‘WRITE, GO 

CLR R3 

1S: TSTB =. ARO 

BMI 25 

INC R3 

BNE 1$ 
020770 JSR PC, GTYRG :GET RKCS, ER 
001202 MOV R2; SREGIO GET THE arbat ine S 

BRKDAY :BREAK IT INTO Dave Cy aur SEC 8 

ERROR 31 : CNTRL ROY DID NOT StT AF 

‘WRITE OF 1 WORD ON CYL _ eee 2 

177777 161626 25: MOV 8-1, IRKWC sREAO 1 Yoko 
161 MOV DA FROM SEC YL O 
001144 MOV STKS, ORY INTO TTY Stage REGISTER 
161422 CLR asTKs :CLEAR TTY KEY BRO STATUS REG 
000065 MOV #65, aRO ;READ, MEX BITS SET 

CLR R3 

3S: TSTB =s MRO 

BMI 4§ 

INC R3 
020770 JSR PC, GTYRG 
001202 MOV Re’ $REGIO :GET THE STARTING ADRES 

BRKDAY :BREAK IT INTO ORs, CYL SUR, SEC8 

ERROR 45 :CNTRL RDY DIDN’T SET AFTE 

{READ OF 1 WORD FROM CYL BY SEC 2 


IN EROR MSGE, <DSK-ADRES> Gives” 
ADRES WHERE READ BEGAN. *RKDA’ 
GIVES CONTENTS OF RKDA a i. OF EROR 


000100 oO01144 4S: BIT #100,$TKS CORRECT WORD RE 
THE TTY STATUS REGISTER? 
BNE TSTS4 :;YES, EXIT e 
161354 MOV aSTKS, RS ;GET THE WORD RECVD FROM DISK 
001164 MOV RS, SREG1 
000100 BIS #100,RS HIS WORD WAS EXPCTD 
001162 MOV RS, SREGO ‘Re EXPCTD WORD 
001166 MOV JRY, SREG2 ;GET RKBA 
001170 MOV JRO; SREGS ‘GET RKCS 
ERROR 115 :DATA ERROR. A ONE WORD ; 190) 
:NPR WAS TRIED FROM DISK TO 


TTY eee STATUS tet 

(1 T_6 SHOULD HAVE BEEN 
; oer aS RESULT OF THIS 

;BUT IT WAS NOT 


ica hace heat ieee Can tae? cee eee 
TES CHECK THAT RKBA CAN COUNT CORRECTLY t 
*T THIS TEST CHECKS THAT RKBA CAN COUNT CORRECTLY. IT IS SET 
;#T0 THE DESIRED INITIAL VALUE. THEN A ONE WORD WRITE CHECK 


MO-11-DZRKK-E, RK11 BASIC LOGIC TEST 2 pacvil 30( 1046) na ae cbesec Hey 


DZRKKE.P11 ‘O7-JUL-77 09:37 TS4 CHECK THAT RKBA CAN 
? # WITH ON T. IF THEPE IS 
z 05 TEISRe MESO (OP OR ARRAS Hed 
2738 aS D HAYE FROM ITS BOER TAL bw. aT ae 
c 
rats -# ve PreNTED BY LF 
S7 es AE BL SE SE 
5740 017616 OO0004 +éTS4: SCOPE 
S741 017620 Ol2737 OO0000S 01206 MOV #5, STIMES -D0 S ITERATIONS 
S742 017626 104421 TST.SIN AME CK IF SIN SET IF SET DRV RESET 
5743 017630 OOSO01 CLR Rl tINTIOLEZE (vel OF RKBA) 
aan 017632 012702 ooc00e2 MOV #2,Re2 ‘INITIALIZE (INCMNTD VALUE OF RKBA) 
S746 017636 012737 017650 001110 MOV #1$, SLPERR ;SET RETURN ADRES FOR LUPING 
ald :ON EROR 
5749 017644 013705 001336 MOV RKBA, RS 
5750 017650 004737 021432 1S: JSR PC, TSTRWS sWAIT FOR R/W/S RDY 
5751 017654 104016 ERROR 16 *R/W/S ROY IS NOT SET 
S752 017656 iOvi3 CNT. RESET DO CONTROL RE 
5753 017660 012777 177777 161446 MOV wc WRITE CHK 1 
5754 017666 O10115 MOV R1.9RS ;THIS BUS ADRES 
5755 017670 013777 001350 161442 MOV DRIVAD,IRKDA =; SET_DISK ADRES 
5756 017676 012777 O00067 161426 MOV #67, IRKCS WRITE CHECK, MEX BITS SET 
5757 017704 104412 CHKCRDY :G0 CHECK IF CONTROL RD IS SET 
5758 ‘IF SO, SKIP THE EROR MESSAGE. 
5759 017706 104065 ERROR 65 :CNTRL RDY DID NOT SET AFTER 
57 ‘WRT CHK WAS TRIED TO NXM LOC 
5761 :U MIGHT WANT TO USE TESTS 
5762 :CHECKING MEX BITS 8 NXM. 
5763 017710 005237 001356 INC INDX1 ‘ALLOW ONLY S ERRORS OF ABOVE KIND 
e764 017714 001417 BEG cs 
5766 017716 O20e15 38: CMP R2, ORS ;DID RKBA INCREMENT BY 1 FROM 
5767 :ITS INITIAL VALUE? 
5768 017720 OO1410 BEQ 4§ YES, BRANCH 
5769 017722 010137 oOllbe MOV R1. SREGO :GET EXPCTD RKBA 
5770 017726 011537 O01164 MOV aRS SREGI :GET RKBA RECVD 
5771 017732 104017 ERROR :RKBA DID NOT INCREMENT BY 
5772 :1 FROM ITS INITIAL V 
5773 :ONE WORD WRT CHK WAS TRIED 
5774 :TO A NXM LOCATION. T 
5775 ‘WILL BE AN NXM ERROR 
5776 ‘BUT STILL RKBA SHOUL 
5777 SINCREMENT BY 1 FROM ITS 
5778 ‘INITIAL VALUE. 
5779 017734 005237 001360 INC INDX2 :ALLOW ONLY S ERRORS OF 
5780 017740 O0140S BEQ o$ ‘THE ABOVE KIND 
5781 617742 060201 4$: ADD R2,R1 :SET NXT VALUE OF RKBA 
S782 017744 610102 MOV RI:Re 
5783 017746 O6e702 oop000e ADD #2. Re :SET EXPCTD VALUE OF RKBA 
5784 017752 001336 BNE 1$ ‘ALL DONE? 
5786 0:7754 Ss: ;DUMMY EXIT POINT 
5787 
5729 


5789 5 RRERALEAA ESE SRA SEALER AARELEARERLERA REAL AA LAAAERRERRARR ERA REREE 
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a 


BERRY 
WONMWUIC WH 2 


pista 


2 


R QO0O0000 
3} 
B a 


020000 
020002 
020010 
020914 
020020 
020022 
020030 
020032 
020040 
020044 


020050 
020052 
020060 
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000904 
012737 000001 
00S737 001404 


004S37 025154 


oococy 

012737 000001 
00S237 001352 
004737 021500 
104026 

023737 O01412 
062737 d20000 
000137 905040 
005037 O0ille 


000004 
012737 gocods 
005237 001440 


CHECK 
;#TEST SS creck E 
paTHIS TES Tier SHES PRK OSE TYPE DRIVES 
Foaty KS _ ARE ee ON ONE 
SORIVES TH THE OTHER DRIVE BEC 


isepveskeneeunbonsesneneesneenneaninnenaneanessesanensesnesaness 


téT55 
001206 MOV #1,S$TIMES ; D0 1 ITERATION 
TST FFLAG : SEE OSF 
BEQ 1$ REF iF 
ISR RS, FCHECK !SEE IF OTHER GOES BUSY 


ERROR 120 
1$: 
: wn aoe COCO ee 
{HE END OF PROGRAM 
°aTHIS IS NOT A Test BUT A LINKAGE PROVIDED TO PERF ORM 
#THE ABOVE SUB-TESTS FOR ALL DRIVES THAT ARE PRESENT 
: eNOTE THAT THE NEXT TEST- POLLING LOGIC- 
3418 DONE USING ALL THE RIVES THAT ARE INDICATED PRESENT. 


NOT LOOP ON THIS ” 
sapeenkequenneatensentensensetateniannesneanesenessussanensess 


+é756 
001206 MOV #1, STIMES ; D0 a ITERATION 
INC DRVDON i INC MENT THE COUNT FOR THE NUMBER 
OF DRIVES THAT ARE CHECKED 
JSR PC, DRESET ;RESET I 
ERROR 26 R/W/S OTB: T SET AFTER DRIVE RESET 
001352 BTEOP: CMP DRIVS, ORVOON HAVE U ne PRESENT ALL THE DRIVES 
BEQ 1$ IF YES nau 
001350 ADD #29000 , DRIVAD AD ORES tHE NXT POSSIBLE ORIVE 
JMP NUDRV *GO BACK AND TEST THE NEXT 
:DRIVE PRESENT 
18: CLR SERTTL 


; sosgoggovonoperonpecesepesoseeenvesensaeseneeynnranerprenever? 
{HIE TEST 5 CHECK HARDWARE POLLING LOGIC 
7 aTHIS res? CHECKS THE HARDWARE POLL LOGIC, USING ALL THE DRIVES 
;*#PRESENT ON THE RKI1. ATLEAST THO” DRIVES’ SHO SHOULD BE PRESENT 
#10 D0 A MEANINGFUL HARDWARE POLL. SEQUENCE OF OPERATIONS IS 


'#AS FOLLOWING: 
#1) NUMBER OF DRIVES ON THE RK11 IS ASCERTAINED. 
;#2) HAVING LOCKED OUT ALL INTERRUPTS (CPU PR 7), SEEK IS INITIATED 
#FOR ONE DRIVE AT A TIME, ONLY WHEN “CNTRL ROY’ 'IS SET. 
#3) CPU PRIORITY IS DROPPED T TO 4 SO THAT RK1i CAN INTERRUPT THE INCOMING 
SINTER IS PROCESSED T0 CHECK IF IT WAS DUE TO ‘SEEK DONE’ 
#ONE OF THE DRIVES. 
#4) IF BY THE END OF THE SET TIME A DRIVE HAS NOT INTERRUPTED 


*#AN ERROR MESSAGE IS GIVEN INDICATING WHICH DRIVE DID NOT 
‘INTERRUPT AFTER SEEK WAS DONE. 
OME ang eee Sake pele laden gti LL 8 
991206 MOY #S.STIMES 0 5 ITERATIONS 
INC SI2YET Pit RKOSF YET? 


MD-11-DZRKK-E, RK11 7? oe 5 de TEST 2 meer 30( 1046) 


DZRKKE.P11 = "O7-JUL-77 CHEC 
g20064 001 BNE 

Bey? Geobee 00473? 025300 ISR 
5848 20072 7 001436 258: CLR 
5849 76 012700 O01414 mOV 
5850 20102 005710 238: TST 
5851 20104 001405 BEQ 
5852 020106 005237 00143¢ INC 
5853 20112 005710 TST 
5854 020114 100001 BPL 
5855 020116 005720 TST 
5856 020120 005700 22s:  18T 
5857 O20lee Ge00e7 001433 CMP 
5858 20126 002765 BLT 
5859 020130 005037 001406 CLR 
S860 020134 005737 O0l41e Tse: ‘TST 
5861 20140 001002 BNE 
5862 20142 000137 46 IMP 
5863 020146 005237 001434 208: INC 
5864 20152 013700 001332 MOV 
5865 20156 005037 001356 CLR 
5866 
5867 
586 
5869 
570 O20i62 905037 001380 1S$: CLR 
5972 
587 
5874 O201b6 104413 CNT 
5875 
5876 
5877 
5878 
5879 
5880 
5881 
5882 
5883 
5884 020170 005737 001356 TST 
588s 020174 001002 SNE 
588 020176 cue 
5887 20200 ep 
5888 20202 012702 o0g200 MOV 
5289 0202006 012701 001414 MOV 
5890 20212 012703 177770 MOV 
5891 20216 012705 033336 MOV 
5892 Oede2e 005025 CLR 
5893 020224 905203 INC 
5894 020226 001375 BNE 
e895 020230 012703 177770 MOV 
58% 020234 12705 033336 MOV 
5897 ede40 18: 
5698 020240 o1e74_ 090340 MOV 
5e99 de0e44 Ole746 Oe0ese MOV 
5900 020250 addode RTI 
5301 oe0262 E4S: 


O7-JUL-77 09:38 PAGE 108 


K HARDWARE POLLING LOGIC 


YES 
Be SIZEF :FIND WHICH ARE RK-OSF 
PHYDRV ;NUMBER OF ACTUAL DRIVES 
#ORTVO, RO : TABL 
{RO} ‘DRIVE HERE+? 
PHYORV :COUNT DRIVE 
(RO) ; RKOSF” 
225 : NO 
- (RO)+ ‘DONT COUNT F TWICE 
(RO)+  =NEXT DRIVE 
RO, #ORIV v?+] 3ALL YET 
ODDEVN ‘EVEN DRIVES FIRST IF F 
ORIVS !ANY DRIVES PRESENT? 
205 :YES 
EOP >NO 
TSEFLG 
RKCS, RO 
INDX! :FLAG TO INDICATE: 
 (INDX1)=0 POLLING DONE AFTER ALL 
“DRIVES SEEK TO CYL O 
; (INDX1)=1 BOLLING ONE AFTER ALL 
-ORIVES SEEK TO CYL 4 
INDX2 ;ELAG INDICATING TYPE OF INTERRUPT 
0 NON-ZERO TO INDICATE 
THAT THE INTERRUPT IS DUE TO 
‘SEEK DONE 
RESET :G0, DO CONTROL RESET 
: THIS ISA CALL FOR THE *CNTRL 
RESET? ROUTINE. A CONTROL RESET Is 
TSSUED QND AFTER @ CERTAIN TIME 
tIF THE *CNTRL DOES NOT SET 
‘AN ERROR IS REPORTED. NOTE THAT 
: THE PC IN ERROR MESSAGE IS THE 
RE ’CNT.RESET’ IS LOCATED. 
rare IS A VERY BASIC ERRS IF IT 
:OCCURS GO BACK TO TEST 10 
INDX1 :PERFORMING SEEKS TO CYL 4 
+6 YES, BRANCH 
x 3NO 
.+ 
#200, R2 ;SET ADRES FOR FOURTH CYLINDER 
#ORIVO. R1 INIT IALIZE_P NTER 
0.R3 SET COUNT FOR DRIVES 
SOUTBUF ,RS : IN ITIALIZE POINTER TO INDICATOR AREA 
)+ : CLE T THE 8-WORD IN 
: AREA ateH IS USED FOR 
;SOFTWARE POLLING LATER 
‘10 R3 :SET COUNT FOR 8 POSSIBLE DRIVES 
SOUTBUF ,RS ‘INITIALIZE POINTER TO INDICATOR ARES 
#340, mi 4 
#64$! - 
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DZRKKE.P11 | 07-JUL-77 09:37 15? CHECK HARDWARE POLLING LOGIC 

711 000001 BIT #BITO, (R1) :1S THIS DRIVE PRESENT? 

2a55 penses Bards ao Ot«S HP not, Bra 

S904 020260 005711 TST (RL) . 

2enp pSpseS o20000 Br etr13.Re oe AVENE 

5907 020270 001404 BEG 16$ 

5908 020272 005737 001406 TST ODDEVN tO SWE WAN WANT 000? 

5909 020276 001423 BEQ 4§ ‘NO, SO DO N 

5910 020300 000403 BR 17$ AD THIS ORE hc "rst 

5911 O20302 005737 001406 16$: ‘TST ODDEVN :DO T EV 

S912 020306 901917 BNE 4 -NO, SO MORIP 

5913 020310 O10e1s 17$: MOV R2, (RS) :SEt UP THIS WORD IN THE 

5914 INDICATOR AREA SHOWING THAT THIS 

e316 : RIVE (as IN BITS i3-15 OF R2) 

5917 020312 o42725 9017777 BIC 817777,(RS)+ | :MASK OUT UNWANTED BITS (CYL,SUR,SEC BITS) 

S918 020316 905004 CLR RY 

5919 105710 2$: TSTB sso MRO :IS CNTRL ROY SET? 

5920 Oe0322 100405 BMI 3$ ;YES, BRANCH 

5921 O203e4 005204 INC RY ‘NO, WAIT FOR IT 

5922 020326 001374 BNE 2 LIF’ WAITED LONG REPORT ERRO 

$923 020330 004737 020770 ISR PC, GTYRG GET RKCS.ER 

5324 020334 104021 ERROR 2] ; CNTRL eb 610 NOT ist a R080 ACCEPTING 

5926 020336 010277 160776 3s: MOV R2, IRKDA ADRES rare DRIVE CYL o OR CYL 4 

5927 (WHICHEVER THE CASE MAY BE) 

5928 020342 012710 000111 MOV #111, Ro : , GO, IDE SET 

5929 020346 005721 4S: TST (Rl) ;NEXT DRIVE DATA 

5930 020350 O62702 oencoD ADD 420000, R2 : : INCREMENT DRIVE ADRES (BITS 15,14, 13) 

5931 020354 9005203 INC R3 :TO NEXT ONE 

5932 020356 001330 BNE 1§ !BRANCH BACK IF ALL DRIVES ARE 

5933 :NOT CHECKED TO SEE IF THE NEXT 

5934 :DRIVE IS PRESENT (8 IF SO ISSUE A 

5935 :SEEK TO 

5936 ?BY NOW shexs HAVE BEEN ISSUED 

5337 310 ALL DRIVES PRESENT & POLLING 

5939 020360 oosco4 CLR RY 

5940 020362 013702 001402 S$: MOV RKVEC, Re 

5941 020366 Ole722 o204e0 MOV #6$, (R2)+ :SET ADRES FOR RK TO INTERUPT 

S942 020372 Ole7l2 000340 MOV #340, (Re) :SET PSW ON INTERUP 

5943 020376 013746 001400 MOV RKPRI, -(SP) ‘DROP CPU PRIORITY to 4 SO THAT 

S944 O20402 012746 O20410 MOY #18$,-(SP) >RK11 CAN INTERUPT 

S945 Oc0406 o0d00e2 RTI 

5946 020410 o00240 183: NOP s THIS IS A TIME LOOP DURING 

5947 O20412 o0S204 INC RY s WHICH ALL DRIVES PRESENT SHOULD 

5948 020414 001375 BNE 18% : INTERRUPT 

5949 O20416 og04s2 g 118 : AND K IF ALL AVAILABLE 

5950 !DRIVES INTERRUPTED CORRECTL 

5951 Oe20420 O22626 6S: CMP (SP)+, (SP)+ "RESTORE STACK POINTER 

S952 Oep422 005737 001360 TST INDX2 ;WAS THIS FIRST INTERRU 

2223 UE TO ADRES ACK’ AETER INITIATION 

e356 020426 001021 BNE 33 !IF YES, CHECK THE FOLLOWING 

5957 020430 032710 oz0000 IT #20000, 3RO ;CHECK THAT SCP IS NOT SET 


MO-11-DZRKK-E, RK11 me LOGIC TEST 2 MACY11 30(1046) 
09:37 TS? K HARDWARE POLLING LOGIC 


DZRKKE.P11 © 'O7-JUL-77 CHECK 
5958 020434 001403 BEQ 
59539 020436 b11g3? 001162 MOV 
5960 O2044e 104076 ERROR 
5961 
S962 
eer CeOien 017701 160656 7$: MOV 

964 SO 032701 160000 BIT 
ESe Osee OLdig? 001162 no 
2ere O46e 104050 ERROR 
$968 
5969 
5970 
5971 
597¢ 
5973 020464 005237 901360 8$: INC 
5974 
$975 
258 
eaee 020470 000734 BR 
$979 O20472 013703 001436 9$: MOV 
$980 020476 Ole70S 033336 MOV 
5981 O20S0e 917701 160620 MOV 
$982 020506 O42701 017777 BIC 
5983 
5984 
5985 
5986 
5987 
$988 
5989 O2e0Sie Oedles CMP 
5990 920514 901411 BEQ 
5991 020516 005303 DEC 
5992 020520 001374 BNE 
5993 
5994 
5995 
5996 Oe0S2e 010146 MOV 
5997 020524 004737 021174 JSR 
$998 020530 012637 OOilée MOV 
5999 
E001 O20S34 104051 ERROR 
eos 
6003 
6004 020536 O0040) BR 
60905 Oe0S40 Oo0Se45 108: INC 
£006 
£007 
£008 
£009 20542 000707 BR 
6010 Oe0S44 013703 001436 118: MOV 
Pais O2e05S0 O01e70S 033336 MOV 
£013 o20SS4 195715 14$: TSTB 


~ 
. 
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7$ 
JRO, SREGO 
76 


JRKDS, Ri 
#160000, R1 


8 
R1, SREGO 
50 


INDX2 


$s 

PHYDRV, R3 
#OUTBUF , RS 
aRKDS, Ri 
#17777, R1 


RI, (RS)+ 
10$ 
R3 
+ 


R1,-(R6) 
PC’ SHF TRT 


(R6)+, $REGO 
Sl 

10$+2 

-(RS) 

$ 
PHYDRY.R3 
#OUTBUF , RS 
(RS) 


; BRANCH if SCP CLEAR 


; KC 

sAFTER THE FIRST INTERRUPT WHICH 
‘IS DUE TO INITIATION OF SEEK, SCP 
‘SHOULD NOT HAVE SET. IT DID 


;RKDS BITS 15-13 SHLOULD BE CLR 


iGErYR KO TH IDE SET WAS | ISSUED TO 
‘ALL AVAILABLE DRIVES. FIRS 
s INTER UPT 1S Due “To SEEK INITIATED 


DRV 
R AFTR THIS FRST INRUPT. 
at IF THIS ERROR OCCURS. 


ve \ WAIT 
DRIVES PRESENT 


ltt IF INTERRUPTING DRIVE WAS FOUND 
:HAVE U CHKD ALL DRIVS PRESENT 

:IF NOT LUP BAK 8 CHK 

; REPORT ERROR IF THE INTERRUPTING 
:DRIVE # (AS_IN RKDS 13-15) oe mr 

; T_ARE PRESENT 


;GO SHIFT IT 
i THIS DRIVE # WAS RECVD IN RKDS AS 
;THE INTERRUPTING DRIVE, pine Le 
; DRIVE 0 NOT PHYSICALY PRESENT 

1a 


:DRIVE # L 
: THAT ORIVE IS ACTUALLY NOT PRESENT 


P FLAG INDICATING THAT 
The INTERRUP! FOR THIS DRIVE 
TER IT HAD COMPLETED ITS SEEK) 
MAS PROCESSED 


0 BAK & WAIT FOR FURTHER INTRUPTS 
ata # OF DRIVES 
i TNITIALIZE POINTER 


:DID THIS DRIVE INTERRUPT? 
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DIRKKE.P11  ‘07-JUL-77 09:37 157 CHECK HARDWARE POLLING LOGIC 
6014 O20S ieee BNE : eri a: 
) 4 I 
Baie Reseed BANS o1s7y AY ARedae BP Fi PRE te 
60!7 O20S66 012637 001162 MOV (Rb)+, $REGO : THIS DRIVE a O10. oT INTERRUPT 
pats o20S72 104052 ERROR 52 BARIRS N SRO) bi NOT 
74 ? 000 3$ RS ice SuRING i. ex r FLAG 
ooo002 138: . XT FL 
BRS, RSRRhS  BRESBS BPRS os al? NIFO.09 
6023 020602 001364 BNE 14$ F NOT LUP BACK 
001356 TST NOX1 ONE POLLING FOR SEEKS TO CYL 312? 
pose Bseetd Bbiods ge STEND 9 See EXIT 
6027 O20612 001356 INC INDX1 !IF NOT. INCREMENT FLAG 
pde8 020616 poaess 020162 IMP 15$ :G0 DO fT 
£030 s INDICATOR TABLE 
6031 ‘THE 9-WORD INDICATOR TABLE USED IN 
£032 : ORMER 1 OF THIS SUBTEST 
B033 ;15 LOCATED STARTING A 
34 thd ARE 0 INDICATE 
£035 :PRESENCE OF A URIVE EG: IF 
6036 :DR 6.1,2 ARE PRESENT, IT WILL 
£037 ‘LOOK LIKE * 
6038 : OUTBUF : 000000 BITS 13,14,15 
6039 : 920000 TAIN’ THE 
£040 040 DRIVE NO. 
6041 000000 REST 0’S 
6042 WHEN A DRIVE INTERRUPTS AFTER SEEK 
6043 :IS DONE BIT O OF THE CORRESPONDING 
S044 ‘INDICATOR WORD IS SET. THUS FOR T 
6945 ‘ABOVE EXAMPLE IF ALL _DRIVES INTERRUPTED 
5946 sCORRECTEY. THEN XT ut L 4 90K LIKE: 
6047 BIT O SET 
5048 : pep00L TO INDICATE 
6049 : ASOD OR INTERRUPTED 
6050 : 900000 REST 0°S 
ce 
6053 O20622 005237 O01406 TSTEND: INC ODDEVN :NOW ODD IF RKOSF 
6054 Oe0be6 Oee737 O00002 001406 CMP #2, ODDEVN :SEE IF DONE 
6055 020634 001402 BEQ 21 :ALL DONE 
6056 020636 000137 620134 IMP TS6 TEST AGAIN 
057 O20642 005037 001434 218: CLR TSEFLG 
£059 
6060 .SBTTL END OF PASS ROUTINE 
£062 jFULSSERAEOAERRESPOEESESESORESESESSEAHEGEOREREESERESEOEESEOR ESS 
£0E3  KINCREMEN T THE PASS NUMBER (S$PASS) 
£0E4 :#INDICATE. END-OF-PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
6065 -#TYPE PASS ia > re XXXXX IS A DECIMAL NUMBER) 
506 :4IF THE Be A HON TOR G 
ana *1F THERE ISN'T JUMP 0 T4 


6569 Oe0é4e SEOP: 
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6070 020646 000004 SCOPE : 
4 we E 
A GEE CO a ogra 
ats ue c NUMBER 
074 S20bb4 042737 100000 001100 BIC #100000, $PASS :300N" T ALLOW A ec. NUMBER 
Boe Gaperd | popca! seopct: HSRD 
6077 020676 003022 BGT $DOAGN YES 
6078 p3700 737 MOV (PC)+,a(PC)+  ;:RESTORE COUNTER 
70¢ 1 SENDCT: .WORD 1 
6080 020704 020674 SEOPCT 
tere dnime Seri mir, Sec, DOE SEEPS Fieeo 
a S85} adage TYPDS ::G0 FY sree CIMAL ASCII WITH SIGN 
6084 020720 104401 020750 TYPE SENULL :: TYPE A NULL CHARACTER 
6085 020724 013700 900042 $GET42: MOV otic RO GET MONITOR ADDRESS 
6086 020730 001405 BEQ OAGN ::BRANCH IF NO MONITOR 
6087 020732 900005 RESET ':CLEAR THE WORL 
6088 4 oo4716 SENDAD: JSR PC, (RO) :!G0 TO MONITOR 
6089 736 40 NOP : SAVE 
0740 000240 NOP tt 
6091 Oe0742 oo0e40 NOP S:ACTII 
6092 020744 $DOAGN: 
6093 020744 000137 IMP a¢PC)+ : ; RETURN 
6094 020746 O04456 SRTNAD: .WORD STH 
609S 020750 377 377 O SENULL: .BYTE sNULL CHARACTER STRING 


00 
609% 020753 O15 O42412 O42116 SENDMG: .ASCIZ C18) t19> /€N0 pass’ #7 
6097 020760 oso049 OSisol O20123 
6098 O20766 900943 


-SBTTL GT2RG: ROUTINE FOR GETTING RKCS,RKER 


; SUBROUTINE FOR TRANSFERRING THE CONTENTS OF RKCS, RKER 
19 Pre Gh, SREGI RESPECTIVELY BEFORE TYPING OUT AN ERROR MESSAGE. 


-SBTTL GT3RG: ROUTINE FOR GETTING RKCS, RKER, RKDS 


GT3RG 
: SUBROUTINE FOR TRANSFERRING THE CONTENTS OF RKCS. RKER. RKDS 
:TO $REGO, SREG1, SREG2 RESPECTIVELY BEFORE TYPING OUT AN 
‘ERROR MESSAGE. 
:CALL: JSR PC, GT3RG 


-SBTTL GTYRG: ROUTINE FOR GETTING RKCS, RKER, RKDS, RKDA 
;GTYRG 
; SUBROUT INE FOR TRANSFERRING CONTENTS OF RKCS, RKER, RKDS 


RKDA TO SREGO, SREGI, $R EGe, $REG3 RESPECTIVELY BEFORE 
TYPING OUT AN’ ERROR MESSAGE 


UM ste aun eww Ose eR Ree 
NWN OWDONOMUN ES WOW DMNM UL Ww 


JOS 
SatbeORRYNE: oBK Yd, BORTGLGGIC TEST © BOGLL! SRSIPIRE FOR GETING AKC. RKER, AKES, RKDA 


6126 ;CALL: JSR PC, GTYRG 
6127 ‘ ; 
ae : H 
piss tere BIZZARE RTI REE: GRY RPE EES Et BOE 
JU : MOV ;GET RK 
6131 021012 017737 160314 OOl16e MOV aRKCS, $REGO 
6132 O21020 000207 RTS 
6133 
6134 
6135 
6136 
e138 .SBTTL TYERM: SPECIAL ERROR MESSAGE ROUTINE 
l 
£140 
14 i ROUTINE TYPES OUT 'EROR AT PC=x’ 

pigs a id BNE HERE THE EXPLANATION AS TO WHAT HAPPENED IS GIVEN. THIS ROUTINE 
6143 _ USED ONLY WOR NON-MANUAL MODE OF THE PROGRA 
6144 if JSR TYERM 
6145 
6146 O21022 TYERM: 
6147 O21022 104401 021030 TYPE 655 ;; TYPE ASCIZ STRING 
6148 O21026 oo0406 BR 64 :!GET OVER THE ASCIZ 
6149 --65$: .ASCIZ <15><12>/EROR,PC=/ 
6150 o21044 64: 
6151 O21044 o10346 MOV R3,-(SP) 
6152 of104%— 104402 TYPOC 
6153 O210S0 000207 RTS PC 
6154 
6155 
6156 
6157 
bled : 
6160 .SBTTL BDA, BDAY: BREAK DISK ADDRESS INTO SEC, SUR, CYL, DRIVE 
ibe :BDAO, BDAY 
6164 ; THIS ROUTINE BREAKS A DISK ADDRESS (BITS 0-15) INTO ORIVE 
6165 i CYLINDER #, SURFACE. SECTOR #. THE ROUTINE IS CALLED BY USING EITHER 
6166 ‘BRKDAO OR BRKDAY, BOTH BEING ‘TRAP’ INSTRUCTIOS WITH THEIR LOWER BYTES 
$167 ‘ENCODED TO PROVIDE INDEXING TO BOAO’ OR ‘BDAY’. BEFORE CALLING 
6168 ‘THE ROUTINE THE DISK ADDRESS WHICH IS TO BE BROKEN AS ABOVE 
6169 1S DEPOSITED IN $REGIO. 
6170 :*BRKDAD’ PUTS THE BRKDAY PUTS THE 
6171 ‘DRIVE # IN TO SREGO DRIVE # INTO SREGY 
6172 ‘CYLINDER # INTO $REGI CYLINDER # INTO $REGS 
6173 :SURFACE # INTO $REG2 SURFACE # INTO $REGE 
6174 :SECTOR # INTO SREG3 SECTOR & #ONTO $REG7 
6175 PECL: BRK KDAO BRKDAY 
6176 
6177 
£172 O210S2 o10046 BDA: MOV RO,-(S ;PUSH RO ONTO THE STACK 
£179 O21054 612700 001172 MOY astecsee, RO :SET UP POINTER 
£180 O21060 o00403 BR 

4 


KO9 
SORA BTN BK} BOSTRQLQGIC TEST 2 BBEXT ERA AIONG) Beak bigk AORESs INTO GEC, SUR, CYL, DRIVE 


He GB{0b= 819998 
618S 021070 032777 
pis 021076 001034 
18g ll 10146 
BIRG o21109 10146 
6190 G21104% 013701 
Pi gd 021110 042701 
513! RELLAS BABzB} 
6196 021124 o06201 
pia feliae pees 
l 
6200 021134 042702 
at 40 
114 1 
021144 010102 
6204 021146 2702 
6205S 0211Se O010ce40 
6206 021154 9000301 
6207 Oel1S6 042701 
021162 010140 
6209 
6210 O21164 12602 
6211 Oell6& O12e601 
b2le 021170 Cleso0 
6213 02117e 00002 
6214 
6215 
6216 
6217 
6218 
6219 
6220 
bee! 
t222 
6223 
beeo4 
6225 
be26 021174 012737 
Pes teed poe 
p55g Bsisia poses 
6230 O2lel14 00137 
6e31 Oelelé 000207 
b232e Oeleet 90000 
6233 
6234 
£235 
£236 


001202 
020000 


001202 
177760 


00120e 


177776 


177400 


177770 


177763 


o0000e 
021220 


Ys Vv = . H TACK 
BORH: BY BRpekSf2 no §«=—EERHUBOL BYRD ERNE STAC 
160042 BDAR: BIT #20000, aSWR ; INHIBIT TYPEOUT? 
BNE 2$ YES, BRANCH TO EXIT POINT 
MOV R1,-(SP) ap R1 ON STACK 
MOV Ro’ -(SP) :PUSH Re ON STACK 
MOV $REG10,R1 ‘GET THE <8 WHICH 
i HAS 19 - ROKEN 
BIC #177760,R1 iEX RACT SECTOR BITS 0-3 
HOV RL, ~(RO MOVE SECTOR BITS TO SREG3_OR SREG7 
Hex AREGIO, GET TM Rat GOR Red 
ASR R1 
ASR Ri 
ASR RI 
MOV R1.R2 :STORE THIS 
BIC #177776, Re ;EXTRACCT THE SURFACE BIT 
i" y -(RO} !MOVE SURFACE BIT TO SREG3 OR SREG6 
MOV R2 TORE IT 
BIC #177400, R2 EXTRACT THE CYLINDER BIT 
MOV , (ROS :MOVE CYLINDER BITS TO $REGI OR $REGS 
SWAB :SWAB HI-LO BYTES 
BIC 4177770 RI tEXTRACT THE DRIVE # 
MOV 1,-(RO) :MOVE DRIVE & TO SREGO OR $REG4 
MOV (SP)+,Re2 : RESTORE Re 
MOY (SP)+'RI RESTORE R 
23: MOV (SP)+'RO : RESTORE Ro FROM THE STAC 
RTI ERE TURN FROM INTERRUPT, EXIT THIS 
.SBTTL SHFTRT: SHIFT RIGHT ROUTINE 
sis. ROUTINE SHIFTS A WORD TO THE RIGHT 13 TIMES. THE WORD TO BE SHIFTED 
!IS PUT ON THE STACK BEFORE ENTERING THIS ROUTINE AND IT IS POPPED UP 
:FROM THE STACK AFTER THE SHIFT HAS BEEN DONE. 
:CALL: JSR PC, SHFTRT 
021220 SHFTRT: MOV #-15, 2% ;SET UP A COUNT OF 13 
CLC ; CLEAR THA C BIT : 
1S: ROR 2(R6) ‘ROTATE RIGHT THE WORD TO & SHFTD 
INC 2g i SHIFTED, iat IMES* 
BNE 1$ :IF NOT LUP BAK & SHIFT 
& RTS PC “EXIT FROM THIS SUBROUTINE 
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TTL CHKHE: CHECK FOR "ERR’OR 
TTL CHKHE1: CHECK FOR ’ERR’OR 


3 @h ERE SAS cates PRE EMERG lle I 


be44 
bes iat Te, re 1 pe 1 ENRY ve'BRIVAD" CON INS ott outing NG. ME ooR Ss 5 GATeH IS TO 
CYLINDER AC SECTOR 8 THIS INFORMATION 

6247 ‘Ts SAVED TO BE tee LATER FO FOR ER ERROR | REPORTING. IF THE BITS "ARE NO T SET, 

bevg *RETURN IS MADE TO SKIP THE E 

6250 ; CHKHE 1 

6251 : THIS ROUTINE CHECKS IF “HE” OR ‘ERR’ BITS IN RKCS ARE SET. IF ANY ale THE 
any ts nifor To tte ERNTR resGnch Sc. Blinds ree ER ate 

pez m He ATO oO ar at 1S ORMATISN te Kes 

pSeP ‘be VED TO e ive waft Noe ‘eRBbR othe ECyOR S THE BI His & NOT SET. 

627 RETURN IS MADE TO SKIP THE ERROR ME 

6259 O21222 010137 oOl20e2 CHKHE1: MOV R1, SREGIO ;SAVE THE DISK ADRES 

b2b0 021226 900403 BR CHE 1 

6262 021230 013737 001350 001202 SHKHE: MOV DRIVAD SREG1O ;SAVE THE DISK ADRES 

6263 021236 932777 140000 160086 CHE1: 98!T #340006, aR :IS "HE’ OR ’ERR’ BIT SET? 

6264 O2le44 001467 BEQ CRETR NO 

b2ebS Oele4 004737 020770 JSR PC, a RG GET RKCS,ER,DS, DA 

6266 GeleSe 104416 BRKDAY :GO TO "BbAY &' BREAK CONTENTS 0 

6267 :$REGIO INTO OR®, CYL SEC BITS 

bbs 021254 900207 RTS PC :RETURN TO THE ERROR meeeete: 

cd 

e5o 

bere _SBTTL CHKDA: CHECK IF RKDA INCREMENTED CORRECTLY 

é 

6274 HKDA 

6275 cats ROUTINE CHECKS IF RKDA INCREMENTED CORRECTLY. IF RKDA INCREMENTED 

6276 : CORRECTLY RE TURN 15 MADE TO SKIP THE ERROR MESSAGE. 

6277 TF RKDA DID NOT INCREMENT CORRECTLY, THE EXPECTED AND RECIEVED VALUES 

be78 5QF RADA ARE SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE FOLLOWING THE 

6280 021256 013705 001350 tHKDA: MOV DRIVAD, RS ;RKDA SHOULD INCREMENT TO THIS 

6281 Oelebe o0s205 INC RS ‘AFTER DATA TRANSFER IS DONE 

6282 021264 020577 160050 CHKDAL: CMP RS. IRKDA !DID RKDA INCREMENT CORRECTLY? 

6283 021270 O014SS BEQ CRETRN !IF YES, BRANCH 

6284 :IF NOT, REPORT ERROR 

6285 021272 010537 oDdle02 MOV RS, SREGIO :GET EXPCTD RKDA 

6286 O21e76 104415 BRKDAO GO TO ’BORO’ & BREAK CONTENTS OF 

6287 :§$REGIO INTO OR #,CYL,SUR,SEC BITS 

6288 021300 017737 160034 001202 MOV DRKDA,SREGIO = ;GET ACTUAL RKDA 

6289 021306 1044ié BRKDAY :GO TO ‘BDAY’ & BREAK CONTENTS OF 

6290 :SREGIO INTO DR #,CYL,SUR,SEC BITS 

peal 021310 900207 RTS PC 'RETURN TO THE ERROR heScACE 
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DZRKKE.P11 


021336 
021342 


021344 
021350 


S777 
1442 
017737 
017737 
000207 


005777 
001430 


004737 
000207 


062716 
000207 


160016 


160010 
160006 


157766 


020776 


1$7752 


001330 
157736 


000200 


001332 
15771e 


ooo0ce 


001162 
001164 


157726 


001162 
001164 
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CHECK IF RKWC OVERFLOWED 


.SBTTL CHKWC: CHECK IF RKWC OVERFLOWED 
ite ROUTINE CHECKS IF RKWC OVERFLOWED T F IT DID A RETURN IS MADE 
as THE ERR ME SAGE 1f NOT, THE On CON RTEATS of RKWC AND RKDA SAVED 
Ato. T ogo KWC RS ee DW OUNT SO yERFL OL 106? aces 
* Bea RETRN . i BGR COUNT 
-IF NOT, ERROR 

MOV JRKWC , SREGO GET RKWC 

MOV SRKOA, SREG1 ;GET RKDA 
RTS :RETURN TO THE ERROR MESSAGE 

.SBTTL CHKER: CHECK RKER CONTENTS 


; CHKER 
:THIS ROUTINE CHECKS IF ANY aT IN RKER SET. IF NOT RETURN IS MADE TO SKIP 
THE ERROR MESSA IF ANY BIT 


IS SET THE CONTENTS OF RKCS, RKER, RKDS ARE 


SAVED AND A RETURN IS MADE TO THE ERROR MESSAGE. 


CHKER: TST @RKER 
BEQ CRETRN 
JSR PC, GT3RG 
RTS PC 


io ANY BIT IN RKER SET? 
an 


ives, 
60, ai RRKCS, ER, DS 


;RETURN TO THE ERROR MESSAGE 


; CHKECLR 
:THIS ROUTINE CHECKS THAT RKER IS CLEAR. adorn NOT, THE CONTENTS OF RKER 


:ARE SAVED AND A RETURN IS MADE TO THE ERR 


MESSAGE FOLLOWING THE “JSR” 


:CALL. IF RKER IS CLEAR THE ERROR MESSAGE IS SKIPPED ON RETURN. 


CHKECLR: TST  aRKER 
BEQ CRETRN 
MOV RKER, $REGO 
mov ORKER, $REG1 


; CHKCCLR 
; THIS wa oe CHECKS THAT KES IS CLEAR. IF 
VED AND A RETURN IS MADE TO 3 i. ROR ME 


‘ERROR MESSAGE IS SKIPPED ON RETU 
CHKCCLR: #200 aRKCS 


aro’ 
MOV RKCS SREGO 
MOV IRKCS, SREG1 
RTS PC 

CRETRN: ADD #2, (SP) 
RTS PC 


aM BIT IN RKER SET? 
;GET ADRES OF RKER 


:GET CONTENTS OF RKER 
RETURN TO THE ERROR MESSAGE 


NOT, THE CONTENTS OF RKCS ARE 
MESSAGE. IF RKCS IS CLEAR THE 


13, RKCS CLEAR? 

SAV E ADRES OF RKCS 

‘SVE THE CONTENT OF RKCS 
;RETURN TO THE ERROR MESSAGE 


;SKIP ERROR MESSAGE ON 
;RETURN 
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DZRKKE.P11 07-JUL-77 09:37 TSTRWS: WAIT FOR R/W/S RDY ROUTINE 


be TEE RIAMAPIDS Ha BOVELERY ToSEle MN AAGRRORs TRE BROURY P* 
Be RP HAL ARE Heal RUSE lk BRL HR LE 


6355 ; WAITING TIME IS RPPROX. OR 11/20, APPROX. 208 MS FOR 11/45 
6356 :CALL: JSR TSTR 

6358 021432 013777 001350 157700 TSTRWS: MOV DRIVAD,IRKDA § ; ADRES THE DRIVE 

6359 O21440 005037 001366 CLR TIMER INITIALIZE COUNT 

6360 O21444 032777 OOO100 157654 1S: BIT #100, IRKDS ;010 R/W/S RDY SET? 

6361 O214S2 001007 BNE 2% “YES 

6362 OP1454 005237 001366 INC TIMER WAIT FOR ROY 

6363 O21460 001371 BNE 1$ + ERROR IF ee "S SNOT SET BY NOW 

6364 Oel4ée 017737 157640 001162 MOV JRKDS , SREGO ‘GET RK 

b3b5 021470 000207 RTS PC EXIT (TO ERROR FOOLOWING ’JSR TSTRWS’) 
6367 021472 062716 o00002 2s: ADD #2, (SP) ;ADJUST RETURN ADRES TO SKIP OVER 
6368 “ERROR (FOLLOWING ‘JSR TSTRWS’) 

6369 021476 000207 RTS PC “EXIT 

6370 : 

6371 

6372 

6373 

6374 

6375 .SBTTL DRESET: DRIVE RESET ROUTINE 

6377 ; DRESET 

6378 : THIS ROUTINE DOES A DRIVE RESET ON THE DRIVE WHOOSE ADDRESS IS IN 
6379 SRO. MULT IPL LE RETURN ADDRESSES FOR THIS ROUTINE ARE PROVIDED. 

6380 ne Fade RROR (R/W/S ROY SETS WITHIN CERTAIN TIME) , 0 
6381 ESTING ROH nar ROUTINE T TURN Ss 1S INCREMENTED BY 2 TO SKIP 
6382 T RROR MESSAGE ON RETURN. IF THERE I ISTERS (CS,ER,DS) 
6383 tARE STORED AND THEN A NORMAL EXIT IS MADE FROM THIS HBUTINE” 13't 

6384 tERROR MESSAGE FOLLOWING THE CALL FOR THIS ROUTINE. 

6385 :CALL: JSR PC, DRESET 

= 

6388 O21500 005037 001364 DRESET: CLR COUNT1 s INITIALIZE THE COUNT 

6389 021504 013777 001350 157626 MOV DRIVAD,ORKDA § ;ADRES THE DRIVE 

6390 021512 012777 o00015 157612 MOV #15, JRKCS ;DRIVE RESET, GO 

6391 021520 104414 CNT. RDY ‘THIS IS A CALL FOR ’CN. ROY" 

£392 ; ROUTINE WHICH WAITS FOR 

6393 *RDY TO SET. IF CNTRL ROY “HOES 

6394 "NOT SET WITHIN 883 ll- 

6395 ; (176 MS FOR 11-45 “uta BIPOLAR) 

6396 AN ERROR IS REPORTED 

6397 O21S22 032777 O00100 157576 1S: BIT #100, JRKDS DID R/W/S RDY SET? 

6398 021530 001013 BNE 

6399 021532 012746 177770 MOV #-10,-(SP) :PUSH COUNT ON SP 

6400 021536 O0S216 INC (SP) ‘COUNT IT DOWN 

6401 O21540 001376 BNE - 

b402 021542 005726 TST (SP)+ :POP UP SP 

6403 021544 005237 001364 INC COUNT -IF NOT WAIT 

6404 021550 001364 BNE 1$ :WAITED LONG? 

640S 021552 004737 020770 JSR PC, GTYRG 
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DZRKKE.P11  O7-JUL- oS Eg 9 DRESES: DRIVE RESET ROUTINE 
6406 O215S6 02 BR 2$+4 
6407 021560 062716 o00002 2s: ADD $2, aR6 
$408 021564 900207 RTS PC 
6409 
6410 
6411 
6412 
bY13 .SBTTL TSTSIN: CHECK SIN’ ROUTINE 
6415 : TSTSIN 
£416 : THIS ROUTINE CHECKS IF SIN’ IS SET, IF IT IS SET 
aed : DRIVE RESET IS DONE mt CLEAR ’SIN’ AND INITIALIZE POSITIONER. 
6419 tIF bi DOING DRIVE RESET R/W/S RDY DOES NOT SET A MESSAGE 
6420 ERROR PC=XXXXXxX IS GIVEN. 
bYel  XXXXXX=PC IN THE MAIN PROGRA’ WHERE ’TST.SIN’ CALL IS LOCATED. 
6423 O21566 013777 001350 157544 TSTSIN: MOV DRIVAD,9RKDA § ; ADRES THE DRIVE 
6424 021574 032777 001000 157524 BIT #1000, aRKDS :1S SIN SET? 
6425 021602 001403 BEQ 1§ 
6426 021604 004737 021500 JSR PC, DRESET ;G0, DO DRIVE RESET, SIN SET 
6427 021610 OO040! BR 2s !REPORT ERROR 
6428 Oelble oo000e2 1S: RTI 
6429 021614 o20000 157316 2S: BIT #SW13, SNR : INHIBIT TYPEOUT? 
6430 Oelb22 001373 BNE 3 :IF YES, SKIP TYPEOUT 
6431 021624 104401 021632 TYPE 65S 3 3 TYPE ASCIZ STRING 
6432 021630 OO0406 BR 4§ ::GET OVER THE ASCIZ 
6433 --65§: .ASCIZ /ERROR PC= / 
6434 O21646 b4s: 
6435 Oclb46 011646 MOV (SP). -(SP) 
6436 O21650 O62716 177776 ADD #-2, (SP) sGET THE PC WHERE ‘TST.SIN’ IS LOCATED 
6437 021654 104402 TYPOC :GO TYPE OUT PC 
6438 921656 900755 R 1$ 
6439 
6440 
6441 
bulle .SBTTL DELAY: TIME DELAY ROUTINE 
B444 sDELA 
BY4S i THIS "ROUTINE PROVIDES A VARIABLE TIME DELAY. THE CALL FOR THIS 
b446 UTINE IS AN EN CODED “TRAP” INSTRUCT TION. d 
6447 tt DELA N IS ANY OCTAL NO. FROM 1 TO 177777 
aa eon morte Is 7 ON us (CONVERT N TO DECIMAL) FOR 11/20 
6450 IF F THE USER WANTS TO CHANGE THE DELAY TIME (EXMP: SHORTER DELAY TO 
6451 ‘GET A TIGHTER SCOPE LOOP) THE VARIABLE 'N’ FOLLOWING "DELAY’ SHOULD 
piize ‘BE CHANGED TO SUIT THE INDIVIDUAL NEED. 
6454 O21660 017637 OO0CO0 O0136E DELA.Y: MOV a(SP), TIMER :GET *AMOUNT’ (N) FOR WHICH 
E455 O21666 062716 000002 ADD #2, (SP) ;DELAY IS TO BE PROVIDED 
6456 : ADJUST STACK POINTER TO SKIP OVER ‘N° 
6457 O21672 005337 001366 1S: DEC TIMER ‘COUNT DOWN TO O 
ae 021676 001375 BNE 1$ 
6460 021700 oo0c02 RT! :RETURN T0 MAIN PROGRAM 


‘ma 
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DZRKKE.P11 O7-JUL-77 09:37 DELAY: TIME DELAY ROUTINE 
6462 
ts 
Bue .SBTTL WAT. INT: WAIT FOR INTERRUPT ROUTINE 
6467 T.INT 
6468 THIS ROUTINE PROVIDES A VARIABLE TIME WAIT LOOP DURING WHICH AN INTERRUPT 
b468 'FROM RK11 CAN OCCUR. THE CALL IS AN ENCODED ’TRAP’ INSTRUCTION. 
¢ 
bY? CALL: WAT.INT ,N N IS ANY OCTAL NO. FROM 1 TO 177777 
é 
6473 :WAIT LOOP TIME= APPROX. 7.5N US (CONVERT N TO DECIMAL) FOR 11/20 
6474 : APPROX. haan US FOR 11 45 
6475 !UPON ENTERING THE ROUTINE THE CPU PRIORITY IS DROPPED SO THA 
6476 RK11 CAN INTERRUPT. NOTE THAT WHEN RK11 INTERRUPTS THIS ROUT INE 
5477 1S EXITED WITHOUT POPPING THE STACK, thrs POPPING IS DONE AFTER GETTING 
6478 :TO RK11 INTERRUPT HANDLER. 
6479 IF FOR ANY REASON THE WAIT LOOP TIME_HAS TO BE_CHANGED IT cAN BE DONE 
Bao :BY SIMPLY CHANGING THE VARIABLE 'N’ FOLLOMING. THE "WAT. I 
6482 O21702 017637 OOO000 001366 WATINT: MOV a(SP), TIMER ;GET "AMOUNT * (N) FOR WHICH 
6483 021710 062716 Ooocdde ADD #2, (SP) ;WAIT ING IS TO BE DO 
6484 "ADJUST STACK POINTER FOR CORRECT (RETURN 
6485S 021714 013746 OC1400 MOV RKPRI,-(SP) : DROP CPU PRIORITY SO THAT R 
6486 021720 012746 021726 MOV #13,-(SP) INTERRUPT 
6487 021724 RTI 
6488 021726 005337 901366 18: DEC TIMER ;WAIT FOR RK11 TO INTERRUPT 
6489 Oel732 001375 BNE 1$ 
£490 :IF INTERRUPT HAS NOT OCCURED SY NOW 
6491 :RETURN AND REPORT ERROR 
6492 021734 o0000e RTI EXIT 
6493 
6494 
695 
6495 ;WATIME 
6497 
6498 021736 905000 WATIME: CLR RO 
6499 921740 oOCSO0l CLR Rl 
6500 O2l742 005200 1S: INC RO 
6501 O21744 601376 BNE 1$ 
6502 021746 01 INCB ORR 
6503 021750 001374 BNE 1$ 
6504 21752 900207 RTS PC 
6505 
6506 
B50? .SBTTL CHKCRDY: CHECK CONTROL READY 
6509 ; CROY 
6510 re ROUTINE WAITS FOR THE CONTROL READY TO SET. IF THE CONTROL READY BIT 
6511 “DOES NOT SET WITHIN A CERTAIN TIME, THEN THE CONTENTS OF RKCS, RKER, RKDS 
6512 SAND RKDA ARE SAV ED AND AN EXIT MADE TO THE ERROR MESSAGE FOLLOWING THE 
6513 :*JSR’ CALL FOR THIS ineN : 
6514 ‘IF CONTROL READY SET THEN THE RETURN ADDRESS IS ADJUSTED TO SKIP THE 
éS15 ‘ERROR MESSAGE ON RETU 
6516 “CALL: CHKCRDY 
£517 : RROR :RETURN HERE IF ERROR 
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DZRKKE.P11 | 07-JUL-77 09:37 CHKCRDY: CHECK CONTROL READY 
6518 . --- ;RETURN HERE IF NO ERROR 
3 1754 ? b CH.CRDY: CLR TIMER 
pest 851580 Mian 001367 1S: 1E18 ORKCS sCNTRL RDY SET? 
6S2e 021764 100406 BMI 2$ ‘YES 
6523 021766 005237 001366 INC TIMER 
6524 021772 001372 BNE l :NO, WAIT 
6525 021774 020770 ISR PC, GTYRG ‘SAVE RKCS, ER, DS, DA 
b528 022000 RTI 
6528 O22002 O62716 000002 25: ADD #2, (SP) s ADJUST RETURN ADDRESS TO 
b529 o22006 codode2 RTI ‘SKIP ERROR MESSAGE ON RETURN 
£531 
bb3e | .SBTTL CON.RESET: CONTROL REST ROUTINE 
6534 : CON. RESET 
6535 : THIS ROUTINE ISSUES A CONTROL RESET AND WAITS FOR 
6536 ‘THE 'CNTRL ROY’ FLAG TO SET. WHEN THE FLAG SETS 
6537 AN EXIT IS MADE OUT OF THE ROUTINE. IF *CNTRL-RDY’ 
6538 !DOES NOT SET WITHIN A CERTAIN TIME AN ERROR MESSAGE 
6539 ; CNT ROY DION’ ET 
6540 PC=XXXXXX RKCS=YY 
6541 ?IS GIVEN. NOTE THAT OO Is THE PC WHERE "CNT.RESET*® OR ‘CNT.RDY' 
6S42 1S CALLED. 
6543 
6544 sCALL: CNT.RESET 
6545S 
6S46 
£547 
6548 
E549 .SBTTL CNT.RDY: WAIT FOR CONTROL READY ROUTINE 
6551 CN. RDY 
£552 THIS ROUTINE WAITS FOR THE CONTROL READY BIT TO SET AND WHEN IT 
6553 “SETS EXITS OUT. IF WITHIN A CERTAIN TINE CNTRL RDY D 
6554 :NOT SET AN ERROR IS REPORTED. WAITING TIME IS 883 MS FOR 11/20 
b538 i175 HS FOR 1 hy 745 WITH BIPOLAR MEMORY. 
6557 022010 012777 000001 157314 ¢N.RST: MOV 1, RKCS s ISSUE A CONTROL RESET 
6558 022016 Ole737 177500 001170 MOV 5 400 $REG3 :SET UP COUNT 
6559 Oe2e024 o00402 BR CN. RDY+4 ;SKIP OVER CN.RDY 
6560 O22026 005037 001170 CN.RDY: CLR SREG3 
6561 O22032 105777 157274 1$: TSTB = RKCS DID CNTRL-RDY SET? 
6562 O22036 100435 BMI § :Y 
6563 O22040 005237 001170 INC $REG3 ‘MATTED Onc? 
6564 O22044 001372 BNE 1$ ‘IF NOT GO BAK & WAIT 
6565 OccO4%6 032777 O20000 157064 2S: BIT #SW13, 2SWR ‘INHIBIT TYPEOUT? 
6566 O220S4 001026 BNE 3$ :IF YES, SKIP TYPEOUT 
6567 O22056 104401 TYPE 
6568 Oe2060 001245 MSG3 : 
6569 Oe2062 104401 022070 TYPE 653 :; TYPE ASCIZ STRING 
£570 22066 00403 BR 645 :!GET OVER THE ASCIZ 
£571 --65$: .ASCIZ <15><12>/PC=/ 
6572 O22076 £4$: 


£573 Oee07E OLIe4E MOV (SP) ,-(SP) 


E10 
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DZRKKE.P11 -JUL- L READY ROU 
6574 O22100 162716 000902 SUB #2, (SP) 
6575 O22104 104402 TYPOC ;G0 TYPE PC IN THE MAIN PROGRAM, 
6576 WHERE ERROR OCCURRED 
6577 022106 104401 922114 TYPE 67$ is TYPE ASCIZ STRING 
6578 Oeelle OOO4O4 BR b6$ ‘GET OVER THE ASCIZ 
6579 --67§: .ASCIZ 7 RKCS=/ 
6580 022124 b6$: 
6581 Oeceley O17746 157202 MOV ORKCS, -(SP) ;GET_RKCS 
BS 022130 i044G2 TYPOC :GO TYPE IT 
6584 022132 000002 38: RTI : RETURN FROM THIS 
6585 :ROUTINE TO THE MAIN 
6586 : PROGRAM 
fegg 
6589 -THIS PART OF THE PROGRAM CONTAINS THE COMMON ROUTINES CALLED 
6530 ;FROM THE SYSMAC.SML PACKAGE 
£592 
be33 .SBTTL SCOPE HANDLER ROUTINE 
6S95 ; «SSE SEE EAE ESE EEE SEERA EEE ER HEE REE RARE ERE EL EER ELLE EE ES 
596 tETHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
6597 ; #AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
6598 ?#AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY< 15:08) 
6599 ;#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
£600 :#SW14=1 LOOP ON T 
6601 #SW11=1 INHIBIT ITERATIONS 
6602 : #5WO9=1 LOOP RROR 
6603 : xSWO8=1 LOOP ON TEST IN SWR<7:0> 
£604 :#CALL 
OS :# SCOPE ; ;SCOPE=IOT 
6506 
6607 022134 $SCOPE: 
6608 022134 104407 CKSWR :;TEST FOR CHANGE IN SOFT-SWR 
6609 022136 032777 O4O0000 156774 1S: BIT #BIT14, ISWR 3 SLOOP ON PRESENT TEST? 
6610 O22e144 OO1111 BNE SOVER YES IF = 
6611 jasaeeSTART OF CODE FOR THE XOR tisTeReeses 
6612 O22146 OO0416 éxTSTR: BR 6$ ;;1F RUNNING ON THE oxOR” TESTER CHANGE 
£613 ;;THIS INSTRUCTION TO_A “NOP” (NOP=240) 
6614 022150 013746 OOO004 MOV JeERRVEC,-(SP) ;;SAVE THE CONTENTS OF THE ERROR VEETOR 
6615 022154 012737 O22174 o00004 MOV #55, JRERAVEC : 1567 FOR TIMEOUT 
6616 Oe2elb2 005737 177060 TST 38177060 :: TIME OUT ON XOR? 
6617 Oeel66 012637 Oo0004 MOV eps JHERRVEC j |RESTORE THE ERROR VECTOR 
6618 Oe2l172 000463 BR $SVL AO 330 TO THE NEXT 
6619 022174 Oe2626 S$: CMP (SP) :CLEAR THE STACK TESTER A TIME OUT 
6620 022176 012637 oo0004 MOV (ep)+"  TERRVEC ;] RESTORE THE ERROR VECTOR 
6621 Oeeede 000423 BR 7$ “LOOP ON THE PRESENT TEST 
&s22 22204 6$:;#e8e8END OF CODE FOR THE XOR’ fESTERSSe88 
6623 Oeee04 032777 O0O4O0 156726 BIT #BITO8, ISWR ;;LOOP_ON SPEC. TEST? 
6624 Oeeel2 001404 BEQ G 
022214 127737 156720 o0110e CMPB Os SWR, STSTNM !:0N THE RIGHT TEST?  SWR<7:0 
626 Oeeee2 001462 BEQ § SOVER i ; 
6627 Ceece4 105737 001103 23: TSTB © SERFLG !:HAS AN ERROR OCCURRED? 
6628 Oe2230 001421 BEQ FN 


28 $ $3 
6629 022232 123727 001115 001103 CMPB SERMAX,SERFLG ;;MAX. ERRORS FOR THIS TEST OCCURRED” 


NO-11-0 
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rn -E, 
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*07- 
101015 


00 
013737 


03 
001904 
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001090 
001110 


001103 
001206 


004000 
001100 


156670 
001106 


156636 


001104 


001104 
001206 


156516 


1S&S02 
ooodos 


001116 
001114 
1S6442 
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1$: 
$SVLAD: 


SOVER: 


R 
SMXCNT: SO 
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SCOPE HANDLER ROUTINE 


3$ ;;BR_IF_NO ; 
#E1TO9, ASHR j LOOP ON ERROR? 
SLPERR, SLPAOR *:SET LOOP ADDRESS TO LAST SCOPE 
SERFLG i ZERO, THE ERROR FLAG 
STIMES ::CLEAR THE NUMBER OF ITERATIONS TO MAKE 
1$ ; ;ESCAPE TO T XT TEST 
#BIT11,aSWR INHIBIT ITERAT 
1$ ::BR IF YES 
$Pass ::IF FIRST PASS OF PROGRAM 
1 INHIBIT ITERATI 
SICNT : INCREMENT ITERATION COUNT 
STIMES,SICNT | ::CHECK THE NUMBER OF ITERATIONS MADE 
Sov VER ::BR IF MORE ITERATION REQUIRED 

1, $ICNT ::REINITIALIZE THE ITERATION COUNTER 
SrCNT STIMES  ;;SET NUMBER OF ITERATIONS TO DO 


tgp). 


$LP 


(2p) "HL PRDR 
SESCAPE 


Sten SOISPLAY 
ADR’ (SP) 


;; SAVE SCOPE LOOP ADDRESS 
RROR LOOP ADDR 


$ PS 
;;MAX. NUMBER OF ITERATIONS 


7; CLEAR THE ESCAPE FROM ERROR ADDRES 
ALLOW ONE (1 Fe ies ON NEXT TEST 


S 


5 RERRERAL ERA AERA R ELLA REL ERA REEE LAER EA EARS LERAAA EERE AEA LEE ESA EELS EES 
-SBTTL ERROR HANDLER ROUTINE 
HALT ON ERRO 


R 
INHIBIT ERROR TYPEOUTS 
TESTING ON SIMULATOR 


50 70 SERRTYP 
SERROR: CKSWR 
7$: B 


1$: 


6$: 


LOOP ON 
CYCLE ON 


ERROR TO PREVIOUS ’SCOPE”’ 


DROP pave AFTER MAXIMUM (ALLOWASLE) ERRORS ON THE ORIVE 


ON ERROR 


SERFLG 


$TSTNM, JDISPLAY 
SERTTL 


#B1T6,aSWR 


SERTTL, #5 
8S 


‘F) BERRPC 


sceaReC $ 
#513, 


aSWR 


5 EHEC FOR SOFTWARE SWITCH REGI 
OR FLAG 


UR ERR 


T LET THE FLAG GO TO ZERO 


;DON 
sDISPLAY TEST NUMBER AND ERROR FLAG 
THE NUMBER OF ERRORS 


SDESELECT DRIVE SW SET? 


:NO 
;MORE THAN S ERRORS ON THIS 
;YES, DESELCT THE DRIVE 


ITEMS :STRIP_AND SAVE THE ERROR 1 
;SKIP TYPEOUT IF SET 


: SKIP TYPESUTS 


DRIVE? 


;GET ADDRESS OF ERROR INSTRUCTION 


TEM COCE 


STER REGUEST 


ri 


“~, 
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ERROR HANDLER ROUTINE 
66 4737 0227 158 f QUSERRTYP :GO0 TO USER ERROR ROUTINE 
4 4 1 YPE t 
10 0237 42 OO004% 2S: CMP dete, ae46 ;ARE WE IN ACT11 AUTO MODE” 
022516 001403 EQ +10" YES, HALT ON ERROR 
156414 ST asW ‘HALT ON ERROR? 
2524 BPL 3$ ; SKIP Pir CONT INUE 
HALT ‘HALT RROR 
032539 rouge CKSHR : CHECK eet, SOFTWARE SWITCH REGIATER REQUEST 
010000 156400 38: BI asiile, aSWR iS le SET 
022540 001402 BEQ re 
022542 013716 001106 MOV é ADR, (SP) Abdu FARE TURN ADRES FOR SWl2 
022546 032777 001000 156364 BIT #SH09, @SUR :LOOP_ ON ERROR SWITCH SET? 
022554 001402 BEQ ;BR IF NO 
022556 013716 001110 MOV $LPERR (SP) “FUDGE RETURN FOR LOOPING 
022562 005737 001210 u$: TST SESCAPE CHECK FOR AN ESCAPE ADDRESS 
022566 001402 BEQ c$ NONE 
022570 013716 001210 MOV SESCAPE, (SP) :FUDGE RETURN ADDRESS FOR ESCAPE 
022574 900002 S$ RTI :RETU 
022576 005737 001434 Qs: TST TSEFLG sIF EROR WAS IN LAST TEST (POLL) 
:DROP ALL THE DRIVES 
022602 001407 BEG 10$ 
022604 104401 001303 TYPE MSGS 
022610 005037 O0141e2 CLR ORIVS 
022614 O22626 CMP (SP)+, (SP)+ 
022616 000137 Oo2064 IMP SEOP e 
Q22622 013746 001354 10$: MOV DRVPTR -(SP) sDROP THE DRIVE FROM THE 
022626 162716 o00002 SUB : SELECTION LIS 
022632 013746 001350 MOV batvap -(SP) :DRIVE ADDR TO STACK 
022636 004737 021174 JSR PC, SHE TRT :RIGHT JUSTIFY 
022642 042716 000001 BIC 6) ; MAKE EVEN 
022646 062716 001414 ADD fORIVS, ( :POINTS TO TABLE FOR EVEN ORIVE 
O226S2 042776 100000 ooc000 BIC tBIT 15,30 ;TEST REMAINING DRIVE AS RKOSE 
022660 062716 o0000e2 ADD (R6 ; POINT TO oop 
022664 042736 100000 BIC settis, a(SP)+ :TEST AS 
022670 012736 010000 MOV #81T12,a(SP)+ : INDICATE tare DRIVE DROPPED 
022674 104401 001272 TYPE 
022700 013746 901350 MOV bal veo -(R6) ;PUSH DRIVE 8 ON STAC 
022704 004737 021174 JSR HF TRT ‘SHIFT IT BEFORE TYPING 
022710 104402 TYPOC :TYPE OUT DRIVE # 
022712 104401 9001315 TYPE MSG6 
022716 005337 001412 DEC ORIVS :DECREMENT # OF DRIVES PRESNT 
022722 O22b26 93: CMP (SP)+, (SP)+ !RESTORE STACK 
022724 000137 o20022 IMP BTEOP jG0 BRCK TO THE END OF PROGRM 


.SBTTL ERROR MESSAGE TYPEOUT ROUTINE 


+ LEEERER ELLER ERE RELA EER ERAS REE REREL ERA A ERE EREER ERR ALAR ES ELRLER EE 
THIS ROUT INE uses THE “ITEM CONTROL Hy (SITEMB) TO DETERMINE WHICH 


»#ERROR IS TO BE REPORTED. IT THEN OBTA FROM THE “ERROR TABLE” WASERRTS). 
£737 :*AND REPORTS THE APPROPRIATE INEDRBTION SONCERNING THE ERROR. 
022730 SERRTYP: 
022730 104401 001213 TYPE SCRLF :;"CARRIAGE RETURN” & “LINE FEED" 
022734 O1O04€ MOV RO, -(SP) ::SAVE RO 


H10 
OaReO BIKE: BK}, BBSTEQLGGIC TEST 2 BRAT CLABES H veBGuH RoUTine PASE 1S 


eed De7a0 153700 001114 piss mae oe 
a ‘ 
6744 Oc2744 001004 N 1$ si1F I TEM_NUMBER - ZERO, JUST 
6745 i He Fie PC OF THE ERROR 
Brae 022746 013746 001116 MOV SERRPC,-(SP) si SAVE, SER SERRPC FOR TYPEOUT 
6748 O227S2 104402 TYPOC 520 TYPE CC TAL ASCII(ALL DIGITS, 
6749 022754 O004e6 BR 6$ OUT 
6750 022756 005300 1$:  . DEC RO : {ADJUST THE INDEX SO THAT IT WILL 
6751 22760 006300 ASL RO ts WORK FOR THE ERROR TABLE 
6752 O22762 006300 ASL RO 
6753 022764 006300 ASL RO 
6754 022766 O62700 OO144e ADD aSERRTE RO ;;FORM TABLE POINTER 
675S 022772 012037 023002 MOV 1+, 2$ ::PICKUP “ERROR MESSAGE” POINTER 
6756 022776 901404 BEQ $$ 35 SKIP TYPEOUT IF NO POINTER 
6757 023000 104401 TYPE :: TYPE THE “ERROR MESSAGE” 
6758 023002 oo0000 2s: .WORD 0 !!"ERROR MESSAGE” POINTER GOES HERE 
6759 023004 104401 001213 TYFE SCRLF $s CCARRTAGE RETURN” & “LINE FEED” 
6760 023010 012037 023020 3$: MOV LRO)+, 4g :: PICKUP SpATA ADER” POINTER 
6761 023014 001404 BEG ;;SKIP TYPEOUT IF 0 
6762 023016 104401 TYPE :: TYPE THE “DATA HEADER™ 
6763 023020 o00000 4$: .WORD 0 : "DATA HEADER” POINTER GOES. HERE 
6764 O23022 104401 001213 TYPE $CRLF “CARRIAGE RETURN” & ” LINE f 
6765 023026 011000 S$: MOV tRO) RO ; PICKUP “DATA TeRLe™ POINT 
6766 923030 O01004 BNE 7$ G0 TYPE THE DATA 
$767 023032 012600 6S: MOV (SP)+.RO RESTORE RO 
6768 023034 1049401 001213 TYPE SCRLF i CARRIAGE RETURN” & “LINE FEED” 
6769 O23040 000207 RTS b¢ : :RETURN 
6770 O23042 7$: 
6771 Oe3042 013046 MOV JiRO)+,-(SP) ; SAVE (RO)+ FOR TYPEOUT 
6772 O23044 104402 TYPOC :GO TYPE--OCTAL ASCIICALL DIGITS) 
6773 02304 005710 TST (RO) $318 THERE ANOTHER NUMBER? 
6774 923050 901770 BEQ 6$ 3 F_N 
6775 023052 10440: 023060 TYPE 8S :: TYPE TWO(2) SPACES 
6776 023056 900771 BR 7§ $3 
6777 023060 20040 000 QS: LASCIZ / / 3;TWO(2) SPACES 
6778 923064 “EVEN 
6779 
6780 .SBTTL TYPE ROUTINE 
£782 sBesusuebeseeeceesnressecesceseeeseeese ctlt trecteate ult A 6 
£783 : FROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
£784 ‘¥THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A ul NE FEED. 
6785 : #NOTEL: $NULL CONTAINS THE ChARACTER 19 BE USED AS THE FILLER CHARACTER. 
6786 : #NOTEe: $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
6787 : #NOTES: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
ti 

6789 *CAL 
£790 a) LOSING A TRAP INSTRUCTION P 
731 ite TYPE § ,MESADR »:MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 

é 7% 
a: Won 

2 M 

£735 7% 
£756 


£737 023064 1067327 001157 $TYPE: TSTB © STPFLG :;1S THERE A TERMINAL? 
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oo. nears el et % i THERE IF NO TERMINAL 
iL ; 4 

Font GBS SEG) eR He 

1 76 610046 1S: MOV -(SP) VE RO 
6802 023100 017600 o0000e MOV d2tsSP),RO tCeT ADDRESS OF ASCIZ STR 
6803 023194 112046 23: MOVB {RO)+,~ (SP) s 3PUSH CHARACTER 10 BE PYBED ON ONTO STACK 
Pepe Oe3116 26 S (ap)s HG Ri HINATOR POP IT OF anne Me Re rack 
6806 Oe3l1 12600 60S: MOV (P) + RO 
6807 023114 062716 o00002 38: ADD #2, (SP) ADJUST SOE TURN PC 
5808 Ge312 oogo0e RT URN 

3lee 122716 000011 4$: CMPB ss BHT, (SP) :: BRANCH IF <HT> 

6810 023126 001430 BEQ ag 
bell 923130 2716 o00200 CMPB ss CRLF, (SP) ;;BRANCH IF NOT <CRLF> 

1 1 1006 BNE 
6813 023136 005726 TST (SP)+ :;POP <CR><LF> EQUIV 
6814 023140 104401 TYPE -: TYPE A CR AND LF 
EBLE esta iehith 023300 SCRE $CHARCNT CLEAR CHARACT QUNT 
6817 023150 bhaves a eer NeXT ¢ AERACT R 
at ate ees vanes Eg: om CFtec tSP)+ ir fT POR F CER CHARS. ? 
casa pesies Abia Meet Ace Tyre FOR 4 a 
6821 023164 013746 001154 MOY $NULL, - (SP) :1GET "Ee OF FILLER CHARS. "NEEDED 
BESS 023170 105366 000001 7$: DECB 1(SP) ?:DOES A NULL NE D TO BE TYPED? 
824 023174 002770 sade BLT 6 as i3BR IF IF NO--GO POP THE NULL OFF OF STACK 
pgs? agaie Ope 5 35 953534 DECB scHAnc NF ::D0 NOT Te OUNT A AS A COUNT 
6827 023206 000770 BR - :LOOP 
58¢ ‘HORIZONTAL TAB PROCESSOR 
6831 023210 112716 ooco4O QS: MOVB ; j REPLACE TAB WITH SPACE 
6832 023214 004737 023234 9g: JSR Po, gt Spec : TYPE A SPACE 

023220 132737 000007 023300 BITB 87. $CHARCNT ; | BRANCH IF NOT AT 

834 023226 901372 BNE STOP 
83S 023230 005726 TST (SP)+ ; ;POP SPACE OFF STACK 
6836 Ge3e32 000724 BR 2$ NEXT CHARACTER 
6837 023234 105777 155710 STYPEC: TSTB a$TPS WAIT UNTIL PRINTER IS READY 
6838 023240 100375 BPL STYPEC 
6839 023242 116677 oo0002 155702 MOVB  2(SP),a$TPB ;;LOAD CHAR TO BE TYPED INTO DATA REG. 
6840 023250 122766 o0001S o00002 CMPB sR, 2 LSP) 3315 CHARACTER A CARRIAGE RETURN? 
6841 023256 001003 BNE 1$ : BRANCH 
6842 023260 105037 023300 CLRB = SCHARCNT i YES*-CLEAR NCHARACTER COUNT 
6843 023264 o00406 BR $TYPEX 
6844 023266 122766 O00Dle oo00n2 1S: CMPB Ss LF, (SP) iTS CHARACTER A LINE FEED? 
6845 023274 O01402 BEQ $TYPEX ;;BRANCH IF YES 
6845 023276 105227 INCB = (PC) + ‘COUNT THE CHARACTER 
6847 0623300 o00000 SCHARCNT: WORD 0 CHARACTER COUNT STORAGE 
6848 023302 9000207 $TYPEX: RTS PC 
re 
bea} .SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


£853 5 REAAAARAR EERE ERE REAR EERE AREA REARARERAAALEREERERRAARERAAEEES 


dZ 


= 


eattels 


Olgeos 


012600 
104401 


peneoe 
0020 
oocoss 


023520 
000040 


023510 


000001 
900060 
000040 


000010 


177777 


023520 


000001 


177777 


_ 177776 


ROE BAH SBTGSLOREC TEST 2. BOE 


Hues We EW! 


HAREPLACED AIT Spaces. 
®CALL: 


STYPDS: 


“Io 
AW 


9$: 


9$: 


30( 1046) 


MOV 
TYPOS 
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NUM, -(SP) 
Ry i + 


RS -(SP) 
#20200, -(SP) 
20(SP);R5 
#’-,1(SP) 


#SDBLK,R3 
#’ ,(R3)+ 


By eS) 


(SP) 


6$ 
1(SP),-1(R3) 
#'0,Re 


Pet 


PADDGE Ot oie ME te 


HE NUMBER. LEAD ZEROS WIL 


iiEBT 1 He RORY NPTBER ON THE STACK 


s3Pu TACK 
Ha RS ON ON STACK 
R3 ON STACK 


¢3P oH Re ON STACK 
33 BLANK a Bs AND SIGN 
: NUMBE 


;;GET THE INPUT R 

;;8R IF_INP POS. 

;;MAKE THE BI NUMBER POS 

;;MAKE THE ASCII NUMBER 

;;ZERO THE CONSTANTS INDE 

;;Q9ETUP THE OUTPUT POINTE 

clean y ie aed CHARACTER TO A BLANK 


A ae 
+ BG Tas ome IAT DIGIT 


FR IE BONE, BCD DIGIT BY 1 


;;ADD BACK THE CONSTANT 
3s CHECK IF BCD A Ne 


;FALL THROUGH IF Q 
:STILL DOING LEADING 0’S? 
;;BR IF YES 
I A 

tS YES--SET THE Thee 
: MAKE ie BCD DIGIT ASCII 

;MAKE IT A SPACE IF NOT ALREADY A DIGIT 
::PUT THIS CHARACTER IN THE OUTPUT BUFFER 
biJUBT INCREMENTING 
$56 aes THE TABLE INDEX 
;;GO DO THE NEXT DIGIT 
He TO EXIT 


HE LSD 
:GO CHANGE TO ASCII 
Bs ne THE FIRST NON-ZERO? 


POP STACK INTO RO 
;NOW TYPE THE NUMBER 


NO} S-DZRKK-E, BK}1 BASIE LOGIC TEST 2 


oo000e 900004 


023476 
023504 


016666 
012616 
Oe 


O01 
116637 
112637 


006105 


023755 


023753 


023753 
023755 
023752 


* 
ca 
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MOV 2 (SP), a ;;ADJUST THE STACK 


MOV (SP)+, ( 

RTI ;;RETURN TO USER 
$OTBL: 10000. 

1000 


100. 
10. 
SOBLK: .BLKW 4 
.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 


see EAE ESE SE SESE SESE SESE EAE SESE EEE HEHEHE EE EEE REE EEE EEE EEE 
THIS ROUTINE IS USED TO one A 16-BIT BINARY NUMBER TO A 6-DIGIT 
:#OCTAL (ASCII) NUMBER AND TYPE IT. 

j #$TYPOS--~ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


= 

ie MOV NUM, -(SP) - NUMBER TO BE TYPED 

1* TYFOS CALL FOR TYBEOUT 

x BYTE ON !IN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
s8 .BYTE M soul & 

;# 1=TYPE LEADING ZERO 

i® i OSSUPBRESS LEADING FEROS 


o 
;#S$TYPON----ENTER HERE Ty TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
; #$TYPOS OR STYPOC 


5 Ls 

 # MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
1 TYPON ::CALL FOR TYPEOUT 

:% 

i #87 YPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
‘* MOV NUM, -(SP) ;;NUMBER TO BE TYPED 
# TYPOC ;;CALL FOR TYPEOUT 


$TYPOS: MOV a(SP),-(SP) ;;PICKUP THE MODE 
MOVB  1(SP):S$OFILL ; ;LOAD ZERO FILL SWITCH 
MOVB (SP)+.SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 
oO ae, (SP) : ADJUST RETURN ADDRESS 


B STYPON 
$TYPOC: MOVB #1, SOF ILL ;;SET THE ZERO FILL SWITCH 
MOVB #6, SOMODE+1 ;;SET FOR SIX(6) DIGITS 


STYPON: MOVB 85, SOCNT ri SET THE TTERATION COUNT 
MOV ’=(SP) 
Nov RY, -(SP) isSAVE R RY 
Move pate RY ii aey THe NUMBER OF DIGITS TO TYPE 
ADD ; SUBTRACT - I FOR MAX. ALLOWED 
MOV a4 §0 onone CAVE IT F 
MOV SOF ILL ::GET THE PeRON LL SWITCH 
MOV CSP "RS -:PICKUP THE INPUT NUMBER 
CLR R3 :;CLEAR THE OUTPUT WORD 
1S: ROL RS ;;ROTATE MSB INTO “C* 
BR 3$ M 
2s: ROL RS ::FORM THIS DIGIT 
ROL RS 


L10 


Sale A PAA DFG LGR TT 2 BRU PRUE. alt ho HBP PE 


6966 023644 006105 ROL RS 

ASaPde RAP TRS 3S: gy oe ;;GET LSB OF THIS DIGIT 
6969 023652 105337 023754 DECB  SOMODE -; TYPE THIS DIGIT? 
6970 358 00016 BPL 7$ :;BR_IF_NO 
6971 2703 177770 BIC #177770,R3 ::GET RID OF JUNK 
6972 023664 001002 BNE 4§ ;: TEST FOR 0 
6973 023666 704 RY -: SUPPRESS THIS 07 

023670 001403 BEQ 5S ::BR IF YES 
6975 023672 4g INC RY :;DON’T SUPPRESS ANYMORE 0’S 
6976 023674 052703 BIS #°0,R3 -:MAKE THIS DIGIT ASCII 
6977 023700 052703 o00040 cs: BIS #’ |R3 ::MAKE ASCII IF NOT ALREADY 
6978 023704 110337 023750 MOVB R3, 8S : : SAVE T 
979 023710 104401 023750 TYPE a$ ::G0 TYPE THIS DIGIT 
6980 023714 tpe39 023752 7$: DECB «436=-«s SCNT +: 1 
6981 023720 003347 BGT 25 ;3BR IF MORE TO DO 
6982 023722 o0240e BLT 6$ 
6983 023724 005204 INC RY i INSURE LAST DIGIT ISN’ T A BLANK 
6984 023726 o00744 BR 2g *:GO DO THE LAST DIGIT 
698S 023730 012605 6S: MOV (SP)+,RS *:RESTORE RS 
6986 023732 012604 MOV (SP )+°R4 ::RESTORE RY 
6987 023734 012603 MOV (SP)+ > RESTORE RQ 
6988 023736 O16666 oco0002 oD0004 MOV 2(SP):4(SP) +:SET THE STACK FOR RETURNING 
£989 023744 012616 MOV (SP)+' (SP) 
Egg Wee 900 2g ‘ YTE QO ::ST FOR ASCII DIGIT 
Page 023751 000 “BYTE 0 + PERN TRAITOR FOR TYPE ROUTINE 
6993 O23 009 S$OCNT: .BYTE 0 :;OCTAL DIGIT COUNTER 
6994 02375 009 SOFILL: .BYTE O ::ZERO FILL SWITCH 
6336 023754 900000 SOMODE: .WORD ::NUMBER OF DIGITS TO TYPE 
6337 .SBTTL TTY INPUT ROUTINE 
6399 © RRRELKLELAELE EEE E REALE EELS REL ERA RE ERLE LE RLE ERLE RA RAL SALES ELERS ED 
7000 ‘tNABL LSB 
7002 5p RRRRR EER RRAE EERE EAE AREER EE EE RRE ALES EE REAAE EERE ES LEER EERE ERY 
7003 :#SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 
7004 j #ROUTT S ENT RED FROM THE TR TRAP HANDLER WILL 
7005 **#SERVICE THE TEST FOR CHANGE IN SOFTWARE aut Te REGISTER TRAP CALL 
7006 * £iJH HEN OPERATING IN TTY FLAG MODES 
7007 023756 022737 000176 o01140 $ckS #SWREG, SWR ;;IS THE SOFT-SWR SELECTED? 
7008 023764 001074 ONE 15S 3 }BRANCH IF _NO 
7009 023766 105777 155152 TSTB = ASTKS HAR THERE? 
7010 023772 100071 BPL 15$ :31F NO, DON’T WAIT AROUND 
7011 023774 1177468 155146 MOVB a@$TKB,-(SP) ‘Save t 
7012 024000 042716 177600 BIC #10177, (SP) :! STRIP-OFF THE ASCII 
7013 024004 022726 900007 CMP #7, (SP5+ +; iS IT A CONTROL Ss 
7015 B54 19 004086 001134 o9c0001 BNE $25 108, #1 i ike i RUNNING N AUTO-MODE? 
7oig 024020 001456 BEQ 15S ::BRANCH IF YES 
7018 Oe4022 104401 C24643 TYPE » SCNTLG ;;ECHO THE CONTROL-G (tGi 
7019 Oe4G26 104401 O24650 $GTSWR: TYPE MSWR :: TYPE CURRENT CONTENTS” 
7020 024032 013746 000176 MOV aiReg, -(SP)} ;;SAVE SWREG FOR TYPEOUT 


7021 024036 104402 TYPOC :;G0 TYPE--OCTAL ASCIT(ALL DIGITS? 


SAIN GL" 2 AYP AR ag LTH 


7022 O24040 104401 024661 = TYPE , SINE ssPROMPT FOR NEW SUR 
KER {8} Hi as me 
7025 Oe40S0 105777 155070 73: TSTB =: BS TKS NAR THE 
7026 024054 100375 BPL 7§ iit NOT Here” AGAIN 
7 O240S6 11774 155064 MOVB  @$TKB,-(SP) :;PICK UP CHAR 
7088 024062 O42716 177600 BIC #10177, (SP) ::MAKE IT 7-BIT ASCII 
apa 
7033 O24066 021627 oD00e5 9S: CMP (SP), #25 ils 11 A CONTROL -U? 
7034 024072 001005 BNE 10$ :BRANCH IF NOT 
7035 024074 104401 024636 TYPE SCNTLU :: YES ECHO. CONTROL -J (tU) 
36 024100 O62706 o00006 20$: ADD b6. SP 3; IGNORE _P VIOUS INPUT 
7037 024104 000757 BR 19$ tLET’S eR i} AGAIN 
7039 
7040 024106 021627 oD0015 10$ CMP (SP), #15 5315 IT A <CR>? 
7041 024112 001022 BNE 16S : BRANCH 
7042 024114 766 OO0004 TST 4(SP) ::YES, IS IT THE FIRST CHAR? 
roa ae Neha po0002 155010 Soy it3, P) ,aSWR s BRAC fen SUR 
7045 54156 062706 000006 11$: ADD 6, SP j/CLEAR UP STACK 
aaa SSy tag ioa7ap nirbes 000001 shed OnPa Sime #1 i BEM te ae KBD KBD INTERRUPTS? 
7048 O24146 001003 BNE : t BRANCH TF T 
7049 24150 012777 OO00100 154766 MOV #100, ISTKS +:RE-ENABLE TTY KBD INTERRUPTS 
70S0 024156 15$: ARTI : RET 
7051 24160 004737 023234 16$ JSR PC STYPEC ::ECHO CHAR 
7052 024164 021627 O00060 CMP (SP), #60 -:CHAR < 0? 
7053 024170 20 BLT ; BRANCH IF YES 
7054 024172 O2i627 000067 CMP 8B), #67 $3 
7055 Oe4176 003015 BGT 183 BRANCH iF 
7056 O24 042726 O00060 BIC 60 (SP }+ ::STRIP-OFF ASCII 
7057 Oe4¥2e04 005766 o00002 TST (SP) ::IS THIS THE FIRST CHAR 
024210 001403 BEQ 58 + IF YES 
7059 Gex¥el2 006316 ASL (SP) SHIFT PRESENT 
7060 OP4214 006316 ASL (SP) :: CHAR OVER TO MAKE 
7061 216 006316 AsL (SP) t M FOR NEW ONE. 
7062 Oe%220 005266 o00002 173: INC 2(SP) *:KEEP COUNT OF C 
7063 Oe4224 OS6616 177776 BIS -2(SP), (SP) $3 N NEW 
7064 Oe4230 000707 BR THE NEXT ONE 
7065 Oe4232 104401 oO01212 188: TYPE $QUES Type 2<CR><LF> 
7066 Oe4%236 000720 20$ ::SIMULATE CONTROL-U 
7067 .DSABL LSB 
FOES 
7070 : Lsevstuosependessestuccnuesdessresdueseeeyeaesecetesseusaeeegygae 
071 jATHIS: ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE T 
$4 Ce 
7072 :# ROCHR :; INPUT A SINGLE CHARACTER FROM THE TTY 
7074 £ RETURN HERE {CHARACTER IS ON THE STACK 
707 : & “WITH PARITY BIT STRIPPED OFF 
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SS en 


Tet Be IE ses Bite Hause, RRA 
opRS 4 A 133684 atau BIC ivaren st sp) CET R RID OF JUNK IF ANY 
7084 24272 Oeb627 000004 000023 =’ CNP 4(SP), #23 iiIs atu CONTROLS” 
oOBe at O01 013 154636 25 STB TKS * WAIT Hod a euaracteR 
roe DONatB LGTaME ISM HOVE SSK -(SP) oF CHARACT i Ses 
pes a 14 hi551 aa BIC ##C17?, (SP) + AKE IT ae ASCII 
7090 024320 O22627 000021 CMP (op) 4, bel ::1$ IT A CONTROL-Q? 
7091 324 001366 BNE 25 ae | SC T 
7092 326 900750 BR 1$ +: YES 
024330 026627 000004 OO014O 3s: CMP 4eSP), #140 31S tT UPPER CASE? 
rbge tern reed ooo0004 000175 a 4(SP), #175 PORE ¥ Me Fa CHAR? 
7 Gesiau6 3003 BGT ug’ rt NLA iP eee 
7 4 2766 ooc040 oo0004 BIC #40, 4(SP) ;;MAKE IT UPPER CASE 
7098 024356 o00002 RTI K TO USER 
7039 PETE r ttre erertr errr eeerrr rrr rrr T Tt try 
7100 iATHIS: ROUTINE WILL INPUT A STRING FROM THE TTY 
7102 ir ROLIN ;; INPUT A STRIN' FROM THE TTY 
7103 ie RETURN HERE tIADDRESS OF Fl °T CHARACTER WILL BE ON THE STACK 
7104 i : : TERMINATOR WiLL BE A BYTE OF ALL O°S 
7106 024360 010346 SRDLIN: MOV R3, -(SP) SAVE R3 
7107 024362 OOSO46 CLR -(5P) ;FCLEAR THE RUBOUT KEY 
7108 024364 012703 024614 1S: MOV aSTTYIN, R3 T ADDRESS 
7109 024370 022703 024636 23: CMP aSTTYIN+22,R3 jiBUFFER FULL? 
7110 024374 101456 BLOS 4§ :1BR IE YES 
7111 024376 104410 ROCHR GO READ ONE CHARACTER FROM THE TTY 
7112 Oe4400 112613 MOVE (SP)+, (R3) !:GET CHARACTER 
7113 Oe4402 122713 000177 10$:  CMPB #177, (R3) Ts IT A RUBOUT 
7114 Oe4406 001022 BNE eg ::BR IF NO 
7115 Oe4410 005716 TST (SP) $318 THIS THE FIRST RUBOUT* 
7116 le 001007 BNE 6$ NO 
7117 Oe4414 112737 000134 Oex6le MO #’\, 9S tt TYPE A BACK SLASH 
7118 422 104401 O24612 TYP 
7119 Oe44e6 012716 177777 MOV b-1, (SP) ;;SET THE RUBOUT KEY 
7:20 Oe4432 005303 6S: DEC R3 ::BACKUP BY ONE 
7121 Oe4434 020327 024614 CMP R3, #STTYIN si BTACK EMPTY? 
7122 Oe444O 103434 BLO 4g YES 
7123 Oey42 111337 o2%b12 MOVB  (R3), 98 ::SETUP TO TYPEOUT THE DELETED CHAR. 
7124 Oe4446 104401 Oer%ble TYPE 9$ ::G0 TY 
125 Oe44Se O00746 BR 2$ :GO READ ANOTHER CHAR. 
7126 Oe44s4 005716 S$: TST (SP) ; jRUBOUT KEY SET? 
7127 Oe4456 001406 BE 7§ 
7128 Oe4460 112737 000134 Oe4612 MOVB = &#°\, 98 :: TYPE - BACK SLASH 
7129 Oe4466 104401 Oexbl2 TYPE 
7130 Oe4x472e OOSOIG6 CLR tSP) ;;CLEAR THE RUSOUT KEY 
7131 Ge4474 122713 o00025 7$: CMPB ss#2S, (RB) :}1S CHARACTER A CTRL U? 
7132 Qe4S00 001003 BNE 
7133 Oe4S02 104401 O24636 TYPE  ,$CNTLU :: TYPE A CONTROL “U" 


MD-11-DZRKK-E, RK11 BASIC LOGIC TEST 2 ot 30(1046) 07-JUL-77 09:38 PAGE 131 


DZRKKE.P11 °07-JUL-77 09:37 Y INPUT ROUTINE 
7134 924505 000726 BR 1$ ;GO START OVER 

7135 10 122713 000022 Q$: CMPB 422, (R3) iis CHARACTER A “TR”? 

7136 O24514 001011 BNE : BRANCH 

7137 Oe4%S16 105013 CLRB =. (R33) 55Gb LEAR THE CHARACTER 

7138 Gevoe0 104401 001213 TYPE  ,S$CRLF iit A “CR 7 "LF" 

7139 104401 TYPE STTYIN :: TYPE THE INPUT STRING 

7140 024530 000717 BR og 35G0 PICKUP ANOTHER CHACTER 

7141 Oe%S32 104401 oo1212 4g: TYPE SQUES :TYPE A’ 

7142 G24536 000712 oF 1s : ICLEAR THE BUFFER AND LOOP 

7143 Oe4540 111337 Oe%6le2 3S: MOVB = (R3), 98 !:ECHO THE CHARACTER 

7144 Oe4s44 104401 Oe4612 TYPE 

7145 24550 iee7e3 000015 CMPB 3s S,, (R3)+ CHECK FOR RETUSN 

714 24554 001305 BNE 2s ;{LOOP_IF_NOT RETURN 

7147 Ce4sss 1 l CLRB = - 1 (R3) r3CL LEAR RETURN (THE 15) 

7148 Ge4562 104401 001214 TYPE SLF :: TYPE A 

7149 Oe4S6E 0057; {SP)+ ; CLEAN RUBOUT KEY FROM THE STACK 
7150 Ge4570 MOV (SP)+,R3 

7151 Gexs72 O11646 MOV (§P),+(SP) : !aOJUST THE STACK AND PUT ADDRESS OF THE 
7152 Oe4s74 0 oo0004 900002 MOV 4(SP}_2°SP) tt FIRST ASCII CHARACTER ON IT 
7153 OeveO02 012766 O24614 900004 MOV eSTTYIN, 4(SP) 

7154 O2%610 o0000e2 RTI ; RET URN 

7155 Oe4612 000 9s: .BYTE 0 13ST ORAGE FOR ASCII CHAR. TO TYPE 
7156 24613 "BYTE 0 :  TERMINA 

7157 Ge4614 00022 STTYIN: .BLKB 22 HIRESEAVE ee. BYTES FOR TTY INPUT 
7158 o0so15 000 S$CNTLU: .ASCIZ /fuU/<15><12> : CONTR 

7159 Oe4643 136 006507 O000l2 S§CNTLG: .ASCIZ /tG/<15><le> CONTROL “ee 

7150 Oe46S0 O0S01S 053523 Oe0l22 SMSWR: .ASCIZ <15><12>/SWR = / 

7161 Oe46S6 O20075 000 

Ib2 e466] O40 O47040 OS3SO0S SMNEW: .ASCIZ / NEW = 

7163 Oe4666 036440 O00040 

7164 ;CONTROL U, RUBOUT CAPABILITY 
7168 .SBTTL TRAP DECODER 

¢ 

7167 + ESERSSSSSERSSSSSRESRALARSSARAAASSRSRSESRESRERE RELA AAA SAA AALS AAESE 
7168 : ATHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP™ INSTRUCTION 
7169 "¥AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
7170 ; #OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
ata :#G0 TO THAT ROUTINE. 

7173 O2%72 010046 STRAP: MOV RO, -(SP) ;;SAVE_RO 

7174 O24674 016600 o00002 MOV 2($P),RO ;;GET TRAP ADDRESS 

717S 024700 005740 TST -(RO) BY 

7176 Oe4702 111000 MOVB (RO), RO !:GET RIGHT BYTE OF TRAP 

7177 Oe4704 006300 ASL RO ; ;POSITION FOR INDEXING 

7178 024706 O16000 024726 MOV STRPAD(RO),RO ::INDEX TO TABLE 

173 024712 900200 RTS RO ::G0 TO ROUTINE 

7181 

718e :;THIS IS USE TO HANDLE THE "GETPRI” MACRO 

7184 024714 OLIEY4E STRAP2: MOV (SP),-(SP ;MOVE THE PC DOWN 

7185 Oe4716 O1bEGE 900004 900002 MOV 4(SP3, 37SP) MOVE THE PSW DOWN 

7186 Oe4724 g00002 RTI ‘RESTORE THE PSW 


He 
i .SETTL TRAP TABLE 
7389 
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BBSRRLEELS | 


Say SINENISESINISIN INN 
-~ 


ru 
RR 


G2eS044 


07-JUL-77 


025136 
000340 


iS4ile 


025136 


ooode4 
000526 


oo00e4 


o00te4 


07-JUL-77 09:38 PAGE 132 


s¥THIS TABLE CONTAINS THE hate: ADDRESSES OF THE ROUTINES CALLED 
;#BY THE “TRAP” INSTRUCTION 


TSTSIN 


: ALL=TYPOS 
i ALL=TYPON 


;;CALL=GTSWR 
OE ROCHE 


ALL=RDCHR 
;;CALL=ROLIN 


; ; CALL=CHKCRDY 
;;CALL=CNT.RESET 
;;CALL=CNT.RDY 


; ;CALL=BRKDAC 
; ; CALL=BRKDAY 
; ;CALL=DELAY 


;;CALL=WAT. INT 
;;CALL=TST.SIN 


TRAP+1(104401) TTY TYPEOUT ROUTINE 
TRB og (IOs) TYPE OCTAL NUMBER te My LEADING ZEROS) 


NO 
TYPE OCTAL NUMBER (AS 
TYPE DECIMAL NUMBER ( 


GET SOFT-SWR SETTING 
TEST FOR CHANGE IN SOFT-SWR 
TRAPHLTCLOSMIL) TTY TYPEIN STRING RCUTINE 
TRAP+12(104412) CHECK CONTROL READY 

TRAP+13( 104413) CONTROL RESET ROUTINE 
TRAP+14( 104414) WAIT FOR CNTRL RDY TO SET 
TRAP+15( 104415) BREAK RKDA INTO DR #,CYL,SUR,SEC BITS 
TRAP+16( 104416) BREAK RKDA INTO DR #,CYL.SUR,SEC BITS 
TRAP+17( 104417) TIME DELAY ROUTINE 
TRAP+20( 104420) WAIT FOR RK11 INTERRUPT ROUTINE 
TRAP+21( 104421) TEST SIN ROUTINE 


TRAP+S ( 104405) WIT 
TRAP +6 ( 104406 ) 


TRAP+7 (104407) 
TRAP+10( 104410) 


.SBTTL POWER DOWN AND UP ROUTINES 
+ EEE EER EERE LAER EERE LEER EER R ALES ELSE ERER REAR RE RAE A REEL ET 


* Bowe WER DOuN ROUTINE 
SPUR eSILLUP JePWRVEC 
oy DePWRVEC+E 
MOV Ra otSP) 
MOV R1’-(SP) 
MOV Ro’ -(SP) 
MOY R3,-(5P) 
MOV RY’ -(SP 
MOV RS’ -(SP) 
MOV aSuR 3(SP) 
MOV SP 
MOV 
HALT 
BR -2 


iggeT F FOR FAST UP 
‘push Ro ON STACK 


S 
; PUSH H @SWR ON STACK 


13 :S 
SSPERUP JePWRVEC':;SET UP VECTOR 


;; HANG UP 


+» SELLE HHELEL EE RRAL ESA REL AERA SAL ARAL A LALLA SARALARARALAAARAAATIAE LAT 


‘BOWER UP ROU 
$PWRUP: MOV 


TINE 
SSILLUP,dePWRVEC ;;SET FOR FAST DOWN 
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DZRKKE.P11  07-JUL-77 09:37 POWER DOWN AND UP ROUTINES 
14 MOV AVR, SP ;;GET_SP 

7548 GSegee Bbease BSelus fee 6 Save {MALT Loop FOR THE TTy 
rene 025062 005237 025142 1$: INC $SAVRE WAIT FOR THE INC 

55g nea Bisee3 154044 MOV (SPs, JSWR Boe STACK INTO aSWR 

7251 O2S5074 Ol MOV (SP)+;RS +:POP STACK INTO RS 

7252 025076 012604 MOV (5P)+;R4 ::POP STACK INTO 

7253 025100 012603 MOV (5P)+, ::POP STACK INTO R3 

7254 025102 02 MOV (5P)+'Re ::POP STACK INTO Re 

7255 025104 012601 MOV (SP)+°RI : iO STACK INTO RI 

7256 025106 012600 MOV (SP)+'RO :POP STACK INTO RO 

7257 025110 012737 024772 o000e4 MOV #SPWRON, 2 ;,SET UP THE POWER DOWN VECTOR 
7°58 025116 O1e737 000340 000026 MOV #340, SIRVEC ED: ;:PRIO 

7259 025124 104401 TYPE tae Beat ME POWER FAILURE 
7260 025126 025144 SPWRMG: .WORD $POWER : POWER FAIL MESSAGE POINTER 
7261 025130 012716 MOV (PC)+. (SP) TTRESTART A PFSTRT 

7262 025132 004702 SPWRAD: .WORD PFSTRT ; RESTART ADDRESS 

7263 025134 O0000e RTI 

7264 025136 O00000 SILLUP: HALT ;; THE POWER UP SEQUENCE WAS STARTED 
7265 025140 000776 BR .-2 $3 te on THE POWER DOWN WAS COMPLETE 
? 025142 900000 SSAVRE: 0 T THE SP HERE 

7267 025144 OOSOIS 047520 O42527 SPOWER: .ASCIZ <15><12>"POWER™ * 

7268 025152 O0Ci22 

7268 EVEN 

7271 025154 004737 O21500 FCHECK: JSR PC, DRESET :RESETS ORIVE 

7272 025160 104026 ERROR 

7273 O25162 104413 CNT. RESET 

7274 O2S5164 013737 001350 025275 MOV DRIVAD, DRHOLD -SAVE DRIVE ADRR 
7275 025172 032737 O20000 001350 BIT #20000’ DRIVAD -SEE IF ODD 

7276 025200 O01404 SEQ 1 

7277 042737 O20000 001350 BIC #20000, DRIVAD :MAKE EVEN 

7278 025210 900403 BR 2$ 

7279 GeS2l2 052737 o20000 001350 15: BIS #20000, DRIVAD -MAKE ODD 

7280 025220 013777 001350 154112 2$: MOV DRIVAD;JRKDA =; DRIVE ADDR 

7281 025226 012777 OO0011 154076 MOV #11, 9RKCS :DRIVE SEEK 

7eB2 025234 104414 CNT. RDY 

7283 025236 013777 925276 154074 MOV DRHOLD , IRKDA ;OTHER DRIVE 

7284 025244 104414 CNT. RDY 

7285 025246 032777 OO0100 154052 BIT #100, ARKDS sHEAEDS IN MOTIONN? 
7286 025254 001001 BNE 3$ "NO SO RK-OSJ 

7287 OGeS52e56 005725 TST (RS)+ :YES RK-OSF 

7288 025260 013737 025276 001350 33: MOV DRHOLD, DRIVAD ‘RESTORE ADDR 

7289 Desebb 004737 021500 JSR PC, DRESET !WAIT FOR RESET 
7290 025272 104026 ERROR 26 

7291 025274 o0020S RTS RS 

7292 025276 o00000 DRHOLD: 0 

7293 025300 005037 001350 SIZEF: CLR DRIVAD :START AT DRO 

729 025304 012700 001414 MOV #ORIVO,RO : TABLE OF AVAIL DRIVES 
7295 025310 005710 4$: TST (RO) :THIS DRIVE HERE” 
7296 025312 901413 BEQ 2$ 

7297 025314 005760 ooD00e2 TST 2(RO) : COMPLEMENT HERE? 
7298 025320 001410 BEQ :NO 

7299 025322 004537 025154 JSR RS, FCHECK :SEE IF F MODEL 
7200 025326 o90c40s R : 


B :J_ MODEL 
391 025330 052710 100000 BIS #100000, (RO) ;SET SIGN FOR F 
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DZRKKE.P11 ‘G7-JUL-77 09:37 POWER DOWN AND UP ROUTINES 
100000 990002 #100000, 2(RO) ;BOTH DRIVES 
733 bSeSie aes as, Fee — TARY? 

297 yoo00 001350 AbD #4000 * DRIVAD ‘NEXT act "OR 
iis pesaie a cf Bots 433 CMP tORT Ved RO :CHECKED Al 
7307 025360 003353 BGT 43 “NOT YET 
£308 0eS362 000207 RTS PC 
2310 sERROR MESSAGES 
7318 'SBTTL ERROR MESSAGES 
7314 025364 oO4S5S22 041527 O4244O EM11: .ASCIZ /RKWC EROR/ 

7315 025372 O47S522 O001e2 

As 

7318 025376 O44S23 O20116 OS1S11 EMl2: .ASCIZ /SIN IS SET’ 

7313 025404 OS51440 OS210S 000 

7321 O25411 122 O41113 O20101 EM13: .ASCIZ /RKBA EROR/ 

73ee 025416 051105 OS1117 000 

rd 

7324 025423 042113 O20101 EM16: .ASCIZ /RKDA WRONG AFTER ‘SSE’ / 
7325 025430 051127 047117 ? 


04 02010 
7326 925436 043101 O4eSe4 Oe0l2e 
7327 O25444 051447 O42523 000047 


7329 G2S4Se2 pees 051504 O42440 EM2i: .ASCIZ /RKDS EROR/ 
733 
7332 O25464 OS0104 020114 O42523 EM30: .ASCIZ /DPL SET/ 
7333 O25 
7335 025474 OS1104 020125 O42523 EM31: .ASCIZ /DRU SET/ 
0esso2 
7338 025504 O4SS22 O32460 O4104O EM32:  .ASCIZ /RKOS BIT NOT SET’ 
7339 QeSSi2 OSell1 947040 05211 
025520 052105 0 
7342 025525 104 OS4Se2 O41040 EM33: .ASCIZ /ORY BIT NOT SET 
7343 «O2SS32 OS2111 O47040 052117 
7344 OeSS4O 051440 052105 006 
7346 OeSS4S le3 O4S517 o42040 EM34: .ASCIZ “SOK DIDN*’T SET~ 


7347 OeSSSe O42111 023516 O20124 
7348 OeSS60 042523 000124 


7349 
7350 OeSS64 O42S23 O26503 O47103 EM3S: .ASCIZ “SEC-CNTR DIDN'T COUNT TO 0” 
7351 025572 042040 042111 


7353 OeS606 047125 Ceo hed 047524 


7356 025617 123 O4150S O414SS EM3E: .ASCIZ “SEC-CNTR DION’T INCRMNT- 
7387 OeSbe4 OS2i16 Oeblee O44S04 


L1-DZRKK-E, AKI. BAST 
Settee te BK} 88 
7358 025632 047104 
7359 025640 O41516 
7360 4 000 
73% 
> 47 «123 
> S4 052517 
7364 025662 047111 
7365 025670 OS2116 
7366 025676 047522 
7367 
7368 025703 104 
7369 025710 020124 
7370 025716 041523 
7371 025724 047506 
7372 Q25732 051511 
7373 (025740 051124 
2374 
7375 025743 ~—=s.10 
7376 025750 027522 
7377 025756 O42122 
7378 025764 052517 
7373 025772 020105 
7381 026000 047125 
7382 026006 052103 
7383 026014 030513 
7384 026022 042524 
738 26030 O00ie4 
738? 026032 047103 
7388 o42 122 
7389 047104 
7390 026054 952105 
7391 02 051105 
7392 026070 020113 
7393 026076 020122 
7394 026104 900124 
7395 
739% 026106 051105 
7397 026114 O44040 
7398 026122 020124 
7399 026130 047117 
7400 026136 920113 
7401 026144 020122 
7402 Q261S2 000124 
7493 
7404 026154 o4sS22 
0S Qeble2 OS21i1 
7406 026170 OS1440 
7407 026176 OS1117 
7408 26204 0425 
7499 
7410 O26212 o4SS22 
7411 Qee220 047110 
7412 Oeber6 052106 
7413 Oe6234 O4ISIE 


ah 
RGR 


“~~ oO 


04250 


051503 
042107 
020122 
O44S24 


OS2116 


40 
042523 


051117 


O42Se3 


041040 


047117 


MACY11 30( 1046) 


ERROR MESSAGES 


EM37: 


EM4O: 


EM4Y1: 


EM43: 


EMY4: 


EMMYS: 


EMME: 


EM4?: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


~ASCIZ 


-ASCIZ 


-ASCIZ 


O7-JUL-77 09:38 PAGE 135 


/SEC-COUNTR INCRMENTED WRONG/ 


/DION’T GET SC=SA FOR THIS SECTR/ 


“EROR-R/W/S ROY SHOULD SE SET” 


“UNEXPECTED RK11 INTERRUPT’ 


/CNTRL ROY DIDN'T SET AFTER SEEK OR OR RESET- 


/ERR OR HE BIT SET ON SEEK OR OR RESET’ 


/RKER BIT, ON SEEK OR DR RESET’ 


“RECS CHNGD AFTR FUNCTION WAS DONE- 


Gll 
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ll "O7-JUL-77 09:37 ERROR MESSAGES 


2 
a 
wv 


O26242 OS3440 051501 O42040 
026250 047117 000105 


O262eS4 Oe7See Oe7Se7 Oe0le3 EMSO: .ASCIZ “R/W/S ROY DION’T CLEAR” 


7422 026303 le2 OS34S7 OS514S7 EMS1: .ASCIZ “R/W’S ROY CION’T SET AFTR SEEK OR OR RESET” 


7425 O42Se3 0201 043101 
7426 O0S1124 OS:440 042505 
7427 340 20113 051117 O4204 
28 Oc6346 Oe0le2 O4eS 042523 
ois 026354 000124 
7431 026356 O45Se2 O40SO4 O4144O EMS2: .ASCIZ /RKDA CHNGD AFTR SEEK/ 
7432 4 047110 O4e107 O40440 


026403 103 peciis OW6lee EMS3: .ASCIZ “CNTRL RDY DIDN'T CLR AS GO WAS SET/ 


7440 Q26452 Q201i7 040527 
m4) OeHaO O20123 04252 134 


7443 026446 047103 051124 O20114 EMS4H: .ASCIZ “CNTRL RDY DION'T SET ON WRTVFMT STARTING FROM <DSK-ADRES ” 


f 
fs 
2 
8 
2 
a 
o 


uw 
as 
a 


O47440 Oe0lee EMSS: .ASCIZ “HE OR ERR ON WRT-FMT STARTING FROM <DSK-ADRES>™ 


PRVPYY 
uray 
eee 
nes 
RARATR? RP 
Seah 
ORRESRE 
RESER 
Sons 
2089 
VROS 
ezon 


in 


rurmeTMerrm fu 


042113 Beg 104 EMSE: .ASCIZ “RKDA INCRMNTO WRONG ON WRT-FMT- 
026632 O04 
026640 Rete 


C116 
O2EEYE 1) 026524 04650 
7468 O26654 O00) : 


NOM £m 
© 
wn 
We 
ro 
y 
oO 
Le) 
<= 
“NI 
wl 
iat) 
ial) 
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7470 O26656 O4SS22 041527 O4204O0 EMS7: .ASCIZ /RKWC CION’T OVRFLO ON WRT FMT/ 
7471 6026664 pact 023516 O201e4 


i BS 
oaea BSE 124 Baeebe 1 


7476 026714 O4SSe2 O40S02 O44Y44O EM60: .ASCIZ “RKBA INCRMNTO WRONG ON WRT FMT’ 


7480 026744 043040 052115 
aaes 026752 
a 026753 le2 042513 Oe0lee EMbi: .ASCIZ “RKER SET,ON WRT OR RD OR FMT’ 


tn, 1 O27002 Oe0iee 046506 000124 


7489 027010 O45522 641104 O42440 EMb2: .ASCIZ /RKOB EROR’ 
7490 Oe7Cle O47S22 00122 
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04 oN EM63:  .ASCIZ /RKDA INCRMNTD WRONG ON RD OR RD FMT/ 
7499 027066 O4SS22 041527 2040 EM64: .ASCIZ /RKWC DION’T OVRFLO ON RD OR ROD FMT/ 


7131 l22 pati as 020101 EM6S5: .ASCIZ /RKBA INCRMNTD WRONG ON RD OR RD FMT’ 
aes 


027175 111 041516 OS1117 EMb6: .ASCIZ /INCORRECT HEADER FROM ‘SECTOR’ / 

Oe7202 O4eSee 052103 O44040 

O27210 O40S0S O42S04 O20122 ss 
027216 051106 O46517 23440 

O2722e4 O42Se3 OS2103 u5i117 


bb b= 0-+ bh 4 
WONT UI CWO 


ratarararaatatatas a 


ae 
8 
P 
3 
g 


i? EM67: .ASCIZ /DATA ERROR 


ai 
ie 
aR 
RB 
a 


247 OS2116 046122 EM70: .ASCIZ “CNTRL RDY DIDN’T SET ON RO/FMT STARTING FROM <OSK-ADRES>” 


eS 027334 76 
753S 027340 042510 O47440 O20122 EM71:  .ASCIZ “HE OR ERR ON RO-“FMT STARTING FROM <DSK-ADRES>™ 
7837 e794 OsiONo Ge7eON OHeSae 
027362 0124 Beste 051101 
7539 027370 4 16 04 
40 027376 2 020115 O42074 


04752 O11 
7541 Oe7404 045523 O4045S 051104 
7544 Goris 1127 O47117 020107 EM72: .ASCIZ /WRONG DRIVE ID IN RKDS AFTER SEEK. 


7347 O2e744O O45S2e2 051504 040440 


J11 
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7548 
7549 


2 
ai 


B28 2 
RLoe Oe 


Oo 
——OC)o— 


051105 
000113 


0S112% 


fue 
ae 
PERS 


oe 
fw no 


020122 
ese 


05i440 


047440 
047440 
041440 


EM73: 


EM74: 


EM7S: 


EM76: 


EM77: 


EM100: 


EM101: 


EM102: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


/HROWRE POLL-DRV ID BITS(13-15) SHLDBE CLR’ 


“/HROWRE POLL-INTRUPTING DRIVY # NOT PRSNT/ 


/DRIV # DIDN'T INTRUPT AFTER HRDWRE POLL/ 


/SCP DION’T SET AFTER SEEK WAS DONE- 


/RKDA CHANGD AFTER DRIV RESET’ 


/DATA EROR AT WORDS’ 


/CNTRL RDY DION'T SET AFTER RD CHK/ 


ZERR OR HE ON RO CHK/ 


SAE PAGS LURE Bm 1 


Sere ene SeReRRe 


& 


=SeS Peze 


030063 
a30076 

76 
030101 
030106 


AREVG BRRSAH 


£ 
+= 
Oo ©& 


O4SS2e 


020105 
020113 
000 


020101 
047115 


o44440 


EM103: 


EM104: 


EM10S: 


EM106: 


EM107: 


EM110: 


EM111: 


EM1le: 


EM113: 


EM114: 


-ASCIZ 


-ASCIZ 


~ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


~ASCIZ 


-ASCIZ 


-ASCIZ 


/CSE ON RD CHK/ 


/RKWC DIDN'T OVERFLO ON RD CHK OR WRT CHK / 


/RKOA INCRMNTD WRONG ON RD CHK/ 


/RKBA CHANGD AFTER RD CHK/ 


/MEMORY WORD CHANGED AFTER RD CHK/ 


7ONTRL RDY DIDN'T SET AFTER WRT CHK/ 


/HE OR ERR ON WRT CHK~ 


‘WRITE CHECK EROR/ 


“RKDA INCRMNTD WRONG ON WRT CHk. 


/RKBA INCRMNTD WRONG ON WRT CHK. 


SATO PL AE SU RY LTT Oa we 
030460 


? 4 
tes Gail NSE ANAS Dae 
ree 03051 
7666 030511 le2 O41113 O20101 EM11S: .ASCIZ /RKBA INCRMNTD, WITH IBA SET’ 
7667 030516 047111 051103 047115 
piel one 

eri nh: : 
7672 030545 127 04 O43S16 EM116: .ASCIZ “WRONG MEMORY LOCATION CHANGED WITH IBA SET/ 
7673 O30SS2 O46440 O4650S 051117 
7674 030560 020131 047514 040503 
me fe Gees Bay Bury 
aE8 OSeli1 20110 
7678 0306109 O41111 Oe0101 O4eSe3 
A Sh 030616 000124 
7681 030620 O4SS22 O30461 O4204O EM117: .ASCIZ /RK11 DIDN*T INTRUPT WHEN IDE WAS SET” 
768e 030626 O4el11 023516 020124 
7683 030634 047111 051124 O501 
7684 030642 020124 044127 047105 
768S 030650 O44440 042504 053440 
7686 030656 051501 OS1440 052105 
a 030664 000 
7689 030665 l22 030513 020061 EM120: .ASCIZ /RK11 DIDN'T INTRUPT AFTER Sk WAS INITIATED/ 
7690 030672 O44SO4 047104 052047 
7691 030700 O44440 052116 OSeS22 
7692 030706 OS2e120 O4044O 052106 

93 030714 051105 OS144O 020113 
7694 030722 040527 020123 O47111 
7695 030730 OSei11 040511 O42524 
reas 030736 000104 
7698 030740 041523 020120 O42S2e3 EMl21: .ASCIZ “SCP SET BEFORE SEEK COMPLETED.” 
7699 030746 020124 O4eS02 047506 

00 O42Se2 051440 42505 
7701 030762 020113 050115 
erie 042514 O42Se4 000104 
7704 776 O4SSe2 O30461 O4204O EMi22: .ASCIZ /RK11 DIDN'T INTRUPT AFTER SK COMPLETED. 
7705 OO4 O42l11 023516 020124 
7706 Ole O47111 051124 050125 
7707 O20 O2012e4 043101 O4e524 
7708 026 prise O4SS23 041440 

034 O46517 046120 052105 

7710 O42 042105 


a 103 OS211& O46122 EMle3: .ASCIZ /CNTRL RESET DION'T CLEAR ‘SCP*’ 


060 el 023516 
O66 020124 O46103 O40SOS 


ob op b= b= b= 9 bs 


Sidde PDO PAN FTG HE TEST 


be —— 
roe 


SS558 8S 
FOOLE 


Sel ae ee ee ee ee a 


BERBER BESRES s 
SURO? RORNES & 


SERS & 


fe rts} 
2 8a 


031456 
031464 


020122 
000047 


eae] gees 


2 
rat atastat 
ttt 


052120 
047523 
047522 


051447 


RRL2R B22 
REE 


Ree 


B BS 


R 
ane BSS 
NON! ThRSR2G 


000122 


0S0103 


042440 


M11 
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EM124: 


EmM125: 


EM126: 


EM127: 


EM130: 


EM131: 


EM13e: 


EM133: 


EM134: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


/RK11 DIDN'T INTRUPT AFTER RO DONE’ 


7CNTRL RESET DIDN’T CLR REGISTR/ 


/RK11 DIDN'T INTRUPT AT CPU LEVEL/ 


/RK11 INTRUPTED AT WRONG CPU LEVEL/ 


/*ERR BIT’ DID), . SET IN RKER/ 


“HE OR ERR DIDN*T SET/ 


/RKER EROR/ 


/NXC BIT DIDN'T SET 


/RK11 DIDN’T INTRUPT ON SOFT EROR/ 


Beane Rit” © BS}, 289 "fa: 39° 


7772 
7773 


es 
7826 
7827 


031720 


031726 
031734 


031736 
031744 


031752 
031756 
031764 
031770 


031776 
032004 


031720 


001116 


001116 
000000 


001116 
001166 


020 
444 

047117 

0S1 


ata 2 
amese BSS Bosse 


R? 8B 
BAS 
SSNEN ERS LSnRESE 


£oa 


SPERES 


uw 
OoOul~ 
Orr 
Or 


001162 
001162 


001162 
001170 
000000 


901162 
000000 


001162 
001170 
001176 


Nil 
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o44S0e 
Birk 
a 


047040 
042514 


030055 


000000 
001164 


001164 
000000 


EM13S: 


EM137: 


EM140: 


EM141: 


EM14e: 


DOTl: 
OTe: 


OT20: 


OT2l1: 
DTes: 


OTS4: 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


. EVEN 
-SBTTL 
. WORD 
. WORD 


. WORD 


. WORD 
- WORD 


- WORD 


/MEX BITS INCRMNTD WRONG-RKCS/ 


/WPS NOT CLEAR/ 


/DATA EROR ON TRANSFER FROM DISK TO TTY/ 


/*DRIV #* PRESENT, BUT NOT INDICATED/ 


/ NO BUSY ON OTHER HAL® OF RK-OSF / 


ERROR DATA POINTERS 
SERRPC, SREGO,O 
SERRPC, SREGC, $REG1,O 


SERRPC, SREGO, SREG1 , SREG2, $REGI,O 


$SERRPC ,O . 
SERRPC, SREGO, $REG1, SREG2,0 


SERRPC, SREGO, SREG! , SREG2, SREGS, SREGY, SREGS, SREGE, SREGT,O 


MO-11-D2RKK-E, RK11 wt astS 
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SESS F 


Bomtite 


r 
ie bes bees 


é 


7843 


032012 000000 


‘ 
a 


ores 


NERS 
a aitasa 2g 


R 
RE 
2 83 


O40 
O3e2eSe d20040 
032260 047123 
032266 


032274 000 


032302 
032310 047524 
032316 O45Sce2 


032323 040 


OS004C 


TEST 2 


RZ 
—-MoO 
258 


Bs 
Bzue 8 


020103 
041505 
020040 

000 


020103 


MACY] 


DH34: 


DH3S: 


DH36: 


DHYO: 


DH44: 


1 30( 1046) 
ERROR ‘paTA POINTERS 


-SBTTL 
-ASCIZ 


-ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 


~ASCIZ 
-ASCIZ 


-ASCIZ 


-ASCIZ 
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ERROR HEADERS 


/ PC  REGADD RECVD/ 


/ EXPCT  RECVD/ 


/ PC RECVD/ 


,f & RKCS RKER RKWC / 


4 PC RKCS RKER RKDS “ 


mn. RKOS~ 


/ PC SEC-CNTR/ 


‘ PRSNT NXT-CNT/ 


A SECTOR RKDS- 


/ #« RKCS RKER RKOS 


RKDA’ 


Cle 
MD-11-DZRKK-E, RK11 BASIC LOGIC TEST 2 MACY11 30(1046) O7-JUL-77 09:38 PAGE 145 
DZRKKE .P11 07-JUL-77 09:37 ERROR HEADERS 


032370 d20040 ae O20040 DHS4: .ASCIZ “ PC RKCS RKER RKOS RKOA «~ORV#....CYL. <DSK-ADRS> .SUR. . SEC’ 


032477 O4O O41520 O20040 DHS6: .ASCIZ ~* PC EXPC: DR# CYL SUR SEC RECV: ORS CYL SUR SEC ¢ 


Fe rrr 
; 
aa 


a ee 
: 


> b< b< b= bs be be be 


041520 O20040 DHb4: .ASCIZ /” PC RKWO =RKDA’ 
041527 
OS1040 042113 


BIBIISS SB 


041520 O20040 DHbE: .ASCIZ “ PC SECTR EXPCT RECVD/ 
052103 


041520 O20040 OHb7: .ASCIZ “ PC EXPCT RECVOD OSK-ADRS~ 


041520 O20040 DH74: .ASCIZ “ FC DRIV #/ 


NNNNNNNN NNN NS 
fetatenastenietinsictis sins 
oO 


032747 O40 OSO040 020103 OHIO00: .ASCIZ ~ PC WORD s EXPCT RECVD- 


le 
= 
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DZRKKE .P11 07-JUL-77 09:3 ERROR HEADERS 
754 17 020104 

raut 762 BS049 B3d00 054105 
7342 032770 041520 020124 de0040 
7343 4032776 O42See 053103 000104 
7945 033004 O20040 041520 O20040 DHIO3: .ASCIZ “ PC RKER/ 
seus 033012 OS1040 O42S13 O00l2e 
7948 033020 O20040 041520 O20040 DHIO4: .ASCIZ *“ PC RECVD RKCS/ 
7949 033026 051040 O4150S OY4eleb 
7980 033034 020040 OS1040 041513 
oes 033042 000123 
7953 033044 O20040 041520 Oe0040 DH107: .ASCIZ “ PC Loc EXPCT  RECVD/ 
7984 O330S2 20040 O46040 041517 
7398S 033060 dQe0040 O20040 0541 
7 033066 041520 Oe0le4 Od20040 
aU 033074 O4eSee 053103 000104 
7959 033102 O20040 041520 O20040 DHI17: .ASCIZ 7% PC RKCS/ 
oat 033110 OS1040 041513 000123 
7%e 033116 Geco4O 041520 O20040 DHi2b: .ASCIZ /” PC LEVEL RKCS/ 
7963 033124 Oe0040 042514 O4eS26 
7964 033132 020114 O20040 051040 
oa 033140 041513 000123 
7967 033144 20040 041520 Oe20040 DH130: .ASCIZ “ PC RKCS RKER ERR BIT’ 
7968 033152 Oe0040 051040 041513 
79639 033160 020123 051040 
7970 033166 O42513 Oe0l22 O4e440 
7971 033174 OSile2 O41040 OSei11 
7974 033203 O40 OS0040 020103 DH131: .ASCIZ 7 PC RKCS RKER / 
7975 033210 020040 Oe0040 O04SS2e2 

& 033216 951503 O20040 O20040 
a 1a 033224 O4SS22 051105 000 
7979 033231 O4O O50040 020103 OH133: .ASCIZ * PC RKCS RKER RKDR / 
7980 033236 20040 20040 
7981 033244 051503 Oe0040 020040 
7982 O33eS2 O45Se2 051105 de0040 
7983 033260 020040 O4SSee 040504 
reas 033266 000 
7986 033267 O4O OSOO4O 020103 OHI4O: .ASCIZ + PC EXPCT RECVD RKBA RKCS- 
7987 033274 O20040 O4e44O 050130 
7988 052103 Od200 OS 
7 033310 O415 042126 Oe0040 


990 
7991 933324 O20040 020040 O4SSee 


7395 033336 -EVEN 


NO=L1-OZRKK~E, SKY BASIC LOGIC 


be 


DOZRKKE .P 


0? -JUL- (é 


033336 000400 


000001 


le 


= 
TEST 2 MACYI1 30(1046) O7-JUL-77 09:38 PAGE 147 


ERROR HEADERS 
;DATA BUFFER 


OUTBUF: .BLKW 256. 


END 


; THIS eae WORD BUFFER IS FOR 
;DATA TRANSFERS FROM AND 
;TO THE DISK. 


le 
AOS ILRORRKK-E, BRYA, BARTEL QGTC TEST 2 use EE a ial 07-JUL-77 09:38 PAGE 149 


BADINT 004600 CR = 000015 DT20 031736 oM40 025703 PFSTRT O047Ce 
BADTMO 004534 CRETRN O2l4e4 OTe2l 031752 EM41 025743 PHYORV 001436 
BOAR 021970 = 000209 OTeb 031756 EM43 026000 PIRQ = 177772 
BOa0 0210Se DODISP = 177570 OTS4 031770 M44 0260 /PIRQVE= 000249 
BORY 021062 PCH 001410 EFLG1 001370 M4S 026106 P = Q000C0 
BITO = 00000! DELAY = 104417 EMTVEC= 000030 EM4Y6 026154 PR! = QO0040 
81700 = 000001 660 EM100 Qe77Se ? 026212 PR2 = 900100 
BIT01 = 900002 DH100 7 EM101 027775 EMSO 026254 PR3 = 000140 
BITde = 000004 DH103 033004 EM10e 030037 EMS1 026303 PRY = 000200 
BIT03 = 000010 DH104 033020 EM103 030063 EMS2 026356 PRS = 000240 
8ITO4 = 000020 7 44 Emi04 030101 EMS3 026403 PRE = 900300 
8ITOS = DH117 033102 Em10S 030152 026446 PR7 == 000340 
BITO& = 000100 DHl26 033116 EM106 030210 EMSS 026540 = 177775 
BITO7 = 000200 033144 —EmM107 Q30241 EMS6 026617 = 177776 
B1T08 = OOO40C OH131 033203 EM11 025364 EMS7 PWRVEC= 000024 
81799 = 001000 OH133 033231 EM110 030302 EM60 026714 ROCHR = 104410 
BITl_ = DH14 032107 EM111 030345 EM61 ROLIN = 104411 
8IT10 = 002000 DH140 EMlle 030372 EMb2 027010 RESVEC= 
BITl1 = DH2 032014 EM113 030413 EM63 027022 RKBA 
BITle = 010000 DHe 1 14 EM114 0304S2 E 027066 RKCS 001332 
BIT13 = C2e0000 032151 Em11S 30511 EMES 02713 RKDA C 
BIT14 = 040000 DH34 032207 EM116 030545 EM6E 027175 RKDB 
BIT1S = 100000 DH3S O322e5 EM117 030620 EM&7 027234 RKOS 001326 
Bite = DH36 032245 EMle 025376 EM70 027247 RKER 001330 
BIT3 = 900010 4 032043 EmMl20 030665 EM71 027340 RKPRI OO 
BITY = DHYO 032275 EMle1 030740 EM72 Oe RKVEC 001402 
BITS = 000040 DH44 EMl22 030776 EM73 027460 001334 
B8IT& = 000100 032071 EMle3 031045 EM74 027532 RE =%0CO006 
BIT7 = 000200 DHS4 032370 EmMle4 031104 EM7S 027602 R7 =%0 7 
BITS = 00 DHS& 032477 EMleS 031146 EM76 027652 SEEK 001372 
BIT9 = 001900 4 032604 EMie6 031205 EM77 7715 SEEKL 001374 
BPTVEC= 000014 DH66 032630 EMl27 031246 ERRVEC= 000004 SEEK2 1376 
BRKDAD= 104415 DH&7 32 EM13 025411 FC SHFTRT 021174 

= 104416 032726 EM130 031310 001404 001344 
BTEOP 020 DISPLA O0114e EM131 031345 FTITLE OO1346 SIZEF 

DISPRE O00 EM132e 031372 = 104406 SIZYET OOL44C 

CHKCCL 9021376 DRESET Oe EMi33 031404 GTeRG 021004 = 001100 
CHKCRD= 104412 DRHOLD O2S276 EM134 031427 GT3RG 9 Oe0776 START 002636 
CHKDA Oe DRIVAD 001350 Em13S 031470 GTYRG 020770 STARTA 4 
CHKDAl 021264 ORIVS OO14le EM137 031525 = START! 003334 
CHKECL 021352 ORIVO OO1414 EM140 031543 INDX1 001356 STKLMT= 177774 
¢ 021336 001415 EM141  Q316le ST2 03736 
CHKHE O21 ORIVe 001420 EmM142 031656 IOTVEC= 900920 sT3 004262 
CHKHE] Oelece DRIV3 O014ee EM16 025423 = 000012 ST4 OO44S6 
. Oel3le DRIVY O014e4 EM21 0254Se MSG1 1216 WR 001140 
CH. CRD 4 ORIVS  O014e6 EM30 025464 MS 001236 SWREG 900176 
- = 104407 001430 EM31 025474 MSG3 001245 SWO. = 90000! 
CNT.RD= 104414 DRIV? 01432 EM32 025S04 MSGY 001272 SWOO = 90000: 
CNT.RE= 104413 ORVOON 001352 EM33 0eSS25 MSGS 001303 = 900002 
CN.ROY Oeedeé DRYPTR 001354 EM34 0eSS4S MSG& 13i5 SWO2 = 000004 
CN.RST 22010 OSWR = 177570 EM35 025564 / Q05040 3 = 000019 
COUNT  O0136e OT) 031720 EM36 025617 OODEVN 001405 SWwCH = 000020 


S5UNT: O013€4 oT2 031726 EM3? 025647 OUTBUF 033335 SWOS 90004C 


MD-11-DZRKK- BA 
DIRKKE.PL1 + pe UL-77 
Ss a 0 TST20 
208 : BUR ree 
Site 6 lide fl 
SwlO = nesta 1218¢ 
SWil = 004000 TST26 
SWle = 010000 T5127 
Te = iat Lb Ae 
4 = 
aiid = Tdoo00 Tera 
Swe = 000004 T5732 
5W3 = 000010 15733 
Sw4 = 000020 TST34 
cwS = 00040 1513S 
Swe = 000100 ST36 
Sw7 = =:«O00200 15137 
Swe = OOO400 TST4 
Sw3 = 001000 TST40 
TBITve= 000014 TST41 
TIMER 001366 TSTY¥2 
TKVEC = 000060 T5743 
TPYEC = OO0084 TST44 
TRAPVE= 000024 TSTYS 
TRTVEC= 900014 TST46 
TSTEND O20622 1ST47 
TSTRWS 021432 Sts 
TSTSIN OelS65 T5750 
TST.SI= 104421 T5151 
TST1  OO4706 T5152 
TST10 ©. 905742 T5153 
T5711 006030 TST54 
TST12 906104 TSTSS 
STi3 9062 T5756 
TST14  O0b41e TSTS7 
rST15 OO6S04 TST6 
TST16 © O0E742 1517 
T5117 907170 TYERM 
rS7 p05040 TYPDS 
. ABS. 034336 000 
ERRORS DETECTED: © 
DSKM: OZRKKE /SOL=DSKZ: SYSMAC. SML,DSKZ: OZRKKE. P21 
RUN-TIME: 19 27 .S SECONDS 
Ruti- Tne: RATIC 1063/47=22. Q 
“ORE USED: 24K <6? PAGES) 


oD? 


621022 
= 104405 


$FILLC 


~, 


001156 


C 


la 
a LogiC TEST 2 OY a 07-JUL-77 09: 38 PAGE 150 


SOF ILL 


001174 
001176 
0 


Bs3138 
34 
000117 
O2e34e 
165400 
000900 


~ 


3 
= 034336 


